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}
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