diff --git a/queries/haskell/highlights.scm b/queries/haskell/highlights.scm
index 03744f5d6..dff1c2065 100644
--- a/queries/haskell/highlights.scm
+++ b/queries/haskell/highlights.scm
@@ -116,6 +116,7 @@
 
 (exp_infix (variable) @operator)  ; consider infix functions as operators
 
+(exp_infix (exp_name) @function)
 (exp_apply . (exp_name (variable) @function))
 (exp_apply . (exp_name (qualified_variable (variable) @function)))