diff --git a/haskell-font-lock.el b/haskell-font-lock.el
index 932b8336f..573bb0302 100644
--- a/haskell-font-lock.el
+++ b/haskell-font-lock.el
@@ -315,7 +315,7 @@ Returns keywords suitable for `font-lock-keywords'."
           ;; (concat "[" symbol ":]+")
           ;; Add backslash to the symbol-syntax chars.  This seems to
           ;; be thrown for some reason by backslash's escape syntax.
-          "\\(\\s_\\|\\\\\\)+")
+          "\\(\\s.\\|\\\\\\)+")
 
          ;; Reserved operations
          (reservedsym