Merge pull request #1624 from alexpeits/master

Fix lexer to read ':' as character

Author: purcell

haskell-lexeme.el

@@ -218,7 +218,7 @@ only escape sequences defined in Haskell Report.")
 
 (defconst haskell-lexeme--char-literal-rx
   (rx-to-string `(: (group "'")
-                    (| (: (group (regexp "[[:alpha:]_([]")) (group "'")) ; exactly one char
+                    (| (: (group (regexp "[[:alpha:]_:([]")) (group "'")) ; exactly one char
                        (: (group (| (regexp "\\\\[^\n][^'\n]*") ; allow quote just after first backslash
                                     (regexp "[^[:alpha:]_:(['\n][^'\n]*")))
                           (| (group "'") "\n" (regexp "\\'"))))))

tests/haskell-lexeme-tests.el

@@ -184,6 +184,16 @@ buffer."
    '("'D'")
    '("'D'")))
 
+(ert-deftest haskell-lexeme-char-literal-5 ()
+  (check-lexemes
+   '("':'")
+   '("':'")))
+
+(ert-deftest haskell-lexeme-char-literal-6 ()
+  (check-lexemes
+   '("(':')")
+   '("(" "':'" ")")))
+
 (ert-deftest haskell-lexeme-string-literal-1 ()
   (check-lexemes
    '("\"\\   \\\"")