Qualified type operator exports

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 - Add support for untrusted workspaces ([#211](https://github.com/JustusAdam/language-haskell/pull/211)), thanks to [@maciej-irl](http://github.com/maciej-irl)
 - Add support for `\cases` syntax ([#218](https://github.com/JustusAdam/language-haskell/pull/218)), thanks to [@mixphix](https://github.com/mixphix)
+- Fix qualified type operators in export lists ([#191](https://github.com/JustusAdam/language-haskell/issue/191)), thanks to [@mixphix]
 
 ## 3.6.0 - 15.03.2022
 

syntaxes/haskell.YAML-tmLanguage

@@ -675,19 +675,17 @@ repository:
       - begin: '\b(?<!'')(type)\b(?!'')'
         beginCaptures:
           '1': {name: keyword.other.type.haskell}
-        end: >-
-         (?x)
-            # Type name
-            ([\p{Lu}\p{Lt}][\p{Ll}_\p{Lu}\p{Lt}\p{Nd}']*)
-            # Prefix form of type operator
-            | (\()\s*([\p{S}\p{P}&&[^(),;\[\]`{}_"']]+)\s*(\))
+        end: '(?=,|\)\s*where)'
         endCaptures:
           '1': {name: storage.type.haskell}
           '2': {name: punctuation.paren.haskell}
           '3': {name: storage.type.operator.haskell}
           '4': {name: punctuation.paren.haskell}
         patterns:
           - include: '#comment_like'
+          - include: '#reserved_symbol'
+          - include: '#type_constructor'
+          - include: '#type_operator'
       - include: '#record_wildcard'
       - include: '#reserved_symbol'
       - match: >-

test/tests/Exports.hs

@@ -45,5 +45,13 @@ module M
 --  ^^^^ keyword.other.type.haskell
       (<->)
 --     ^^^ storage.type.operator.haskell
+  , type (Qualified.<->)
+--  ^^^^ keyword.other.type.haskell
+--        ^^^^^^^^^^ entity.name.namespace.haskell
+--                  ^^^ storage.type.operator.haskell
+  , type Qualified.T
+--  ^^^^ keyword.other.type.haskell
+--       ^^^^^^^^^^ entity.name.namespace.haskell
+--                 ^ storage.type.haskell
   )
   where