diff --git a/haskell-font-lock.el b/haskell-font-lock.el
index e2ea9b3bf..775691618 100644
--- a/haskell-font-lock.el
+++ b/haskell-font-lock.el
@@ -319,11 +319,11 @@ Returns keywords suitable for `font-lock-keywords'."
 
          ;; Reserved operations
          (reservedsym
-          (concat "\\S_"
+          (concat "\\S."
                   ;; (regexp-opt '(".." "::" "=" "\\" "|" "<-" "->"
                   ;;            "@" "~" "=>") t)
                   "\\(->\\|→\\|\\.\\.\\|::\\|∷\\|<-\\|←\\|=>\\|[=@\\|~]\\)"
-                  "\\S_"))
+                  "\\S."))
          ;; Reserved identifiers
          (reservedid
           (concat "\\<"