diff --git a/Haskell/Haskell.sublime-syntax b/Haskell/Haskell.sublime-syntax
index a46f88338a..b29c0d546c 100644
--- a/Haskell/Haskell.sublime-syntax
+++ b/Haskell/Haskell.sublime-syntax
@@ -295,12 +295,14 @@ contexts:
   
   module_exports:
     - match: \(
+      scope: punctuation.section.group.begin.haskell
       push:
         - meta_scope: meta.declaration.exports.haskell
         - match: \)
+          scope: punctuation.section.group.end.haskell
           pop: true
         - match: '\b[a-z][a-zA-Z_''0-9]*'
-          scope: entity.name.function.haskell
+          scope: variable.function.haskell
         - match: '\b[A-Z][A-Za-z_''0-9]*'
           scope: storage.type.haskell
         - match: ','
diff --git a/Haskell/syntax_test_haskell.hs b/Haskell/syntax_test_haskell.hs
index 713b1c9486..1cfba60238 100644
--- a/Haskell/syntax_test_haskell.hs
+++ b/Haskell/syntax_test_haskell.hs
@@ -165,6 +165,22 @@
 
 --KEYWORDS
 
+import qualified Data.Vector.Mutable as MutableVector
+-- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ meta.import.haskell
+-- ^^^ keyword.control.import.haskell
+--     ^^^^^^^^^ keyword.control.import.haskell
+--               ^^^^^^^^^^^^^^^^^^^ support.other.module.haskell
+--                                   ^^ keyword.control.import.haskell
+--                                      ^^^^^^^^^^^^^ support.other.module.haskell
+import Data.List.Split (splitOn)
+-- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ meta.import.haskell
+-- ^^^ keyword.control.import.haskell
+--     ^^^^^^^^^^^^^^^ support.other.module.haskell
+--                     ^^^^^^^^^ meta.declaration.exports.haskell
+--                     ^ punctuation.section.group.begin.haskell
+--                      ^^^^^^^ variable.function.haskell
+--                             ^ punctuation.section.group.end.haskell
+
 test =
 --   ^ keyword.operator.haskell
     let x = 2 in x * y