From 15465962771e0d4cdb02c1eba529e0dd5bae3983 Mon Sep 17 00:00:00 2001
From: Melanie Brown <brown.m@pm.me>
Date: Tue, 16 Apr 2024 11:11:44 -0400
Subject: [PATCH 1/2] infix operators can end with #

---
 syntaxes/haskell.YAML-tmLanguage | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/syntaxes/haskell.YAML-tmLanguage b/syntaxes/haskell.YAML-tmLanguage
index 56813ca..985fefe 100644
--- a/syntaxes/haskell.YAML-tmLanguage
+++ b/syntaxes/haskell.YAML-tmLanguage
@@ -590,7 +590,7 @@ repository:
           instead, it should be matched as a comment.
         match: >-
           (?x)
-            (\()\s*(?!(?:--+|\.\.)\))(\#+|[\p{S}\p{P}&&[^(),;\[\]`{}_"']]+(?<!\#))\s*(\))
+            (\()\s*(?!(?:--+|\.\.)\))(\#+|[\p{S}\p{P}&&[^(),;\[\]`{}_"']]+)\s*(\))
         captures:
           '1': {name: punctuation.paren.haskell}
           '2': {name: entity.name.function.infix.haskell}

From 97653ab5a33a5e3e4708c2a8afde0f2d7ddb54e6 Mon Sep 17 00:00:00 2001
From: Melanie Brown <brown.m@pm.me>
Date: Tue, 16 Apr 2024 11:15:34 -0400
Subject: [PATCH 2/2] add test

---
 test/tests/ExportsMagicHash.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/test/tests/ExportsMagicHash.hs b/test/tests/ExportsMagicHash.hs
index 9276c14..b88efe3 100644
--- a/test/tests/ExportsMagicHash.hs
+++ b/test/tests/ExportsMagicHash.hs
@@ -9,6 +9,7 @@ module M
 --          ^ constant.other.haskell
   , f#, (+#), T#
 --  ^ entity.name.function.haskell
+--       ^^ entity.name.function.infix.haskell
 --            ^ storage.type.haskell
   , type T#
 --  ^^^^ keyword.other.type.haskell