diff --git a/rc/base/haskell.kak b/rc/base/haskell.kak
index 9f34c617..6a16aa14 100644
--- a/rc/base/haskell.kak
+++ b/rc/base/haskell.kak
@@ -12,10 +12,10 @@ hook global BufCreate .*[.](hs) %{
 # ‾‾‾‾‾‾‾‾‾‾‾‾
 
 add-highlighter -group / regions -default code haskell \
-    string   '"'     (?<!\\)(\\\\)*"      '' \
-    comment  (--) $                       '' \
-    comment \{-   -\}                    \{- \
-    macro   ^\h*?\K# (?<!\\)\n            ''
+    string   '"'      (?<!\\)(\\\\)*"      ''  \
+    comment  (--[^>]) $                    ''  \
+    comment \{-       -\}                  \{- \
+    macro   ^\h*?\K#  (?<!\\)\n            ''
 
 add-highlighter -group /haskell/string  fill string
 add-highlighter -group /haskell/comment fill comment