From 15b3416cc1f557c4932468e512a0bd45871167bc Mon Sep 17 00:00:00 2001
From: Abbath <pitongogi@gmail.com>
Date: Wed, 14 Jan 2026 11:16:45 +0100
Subject: [PATCH] fix(haskell): highlighting for operator definition and
 operator-like constructors.

---
 runtime/queries/haskell/highlights.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/runtime/queries/haskell/highlights.scm b/runtime/queries/haskell/highlights.scm
index 8e9f1b3c3..9d043b49d 100644
--- a/runtime/queries/haskell/highlights.scm
+++ b/runtime/queries/haskell/highlights.scm
@@ -227,7 +227,9 @@
     (qualified
       ((module) @module
         (variable) @function.call))
-  ])
+  ]
+  (operator) @_op
+  (#match? @_op "^[^:].*"))
 
 ; infix operators applied to variables
 ((expression/variable) @variable
@@ -246,7 +248,7 @@
 (function
   (infix
     left_operand: [
-      (variable) @variable
+      (variable) @variable.parameter
       (qualified
         ((module) @module
           (variable) @variable))