diff options
| -rw-r--r-- | pygments/lexers/haskell.py | 3 | ||||
| -rw-r--r-- | tests/examplefiles/example.hs | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/pygments/lexers/haskell.py b/pygments/lexers/haskell.py index 9b13cbc6..6c71aa97 100644 --- a/pygments/lexers/haskell.py +++ b/pygments/lexers/haskell.py @@ -59,8 +59,9 @@ class HaskellLexer(RegexLexer): (r'\bmodule\b', Keyword.Reserved, 'module'), (r'\berror\b', Name.Exception), (r'\b(%s)(?!\')\b' % '|'.join(reserved), Keyword.Reserved), + (r"'[^\\]'", String.Char), # this has to come before the TH quote (r'^[_' + uni.Ll + r'][\w\']*', Name.Function), - (r"'?[_" + uni.Ll + r"'][\w']*", Name), + (r"'?[_" + uni.Ll + r"][\w']*", Name), (r"('')?[" + uni.Lu + r"][\w\']*", Keyword.Type), # Operators (r'\\(?![:!#$%&*+.\\/<=>?@^|~-]+)', Name.Function), # lambda operator diff --git a/tests/examplefiles/example.hs b/tests/examplefiles/example.hs index 9efd3364..f5e2b555 100644 --- a/tests/examplefiles/example.hs +++ b/tests/examplefiles/example.hs @@ -25,3 +25,7 @@ data ĈrazyThings = House | Peár deriving (Show, Eq) + +-- some char literals: + +charl = ['"', 'a', '\ESC', '\'', ' '] |