summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGeorg Brandl <georg@python.org>2014-03-16 09:26:11 +0100
committerGeorg Brandl <georg@python.org>2014-03-16 09:26:11 +0100
commit8de8163669a0fa659b6c48b10030cf5a73e5df61 (patch)
tree63647e8c9de68f31a0fb019e40129a89767cd55d
parent87cf3e1a72b8b0c031afbff4f8effd9661bef8a3 (diff)
downloadpygments-8de8163669a0fa659b6c48b10030cf5a73e5df61.tar.gz
Haskell: restrict char literals to 1 character if no escapes
-rw-r--r--pygments/lexers/functional.py2
1 files changed, 1 insertions, 1 deletions
diff --git a/pygments/lexers/functional.py b/pygments/lexers/functional.py
index ade26e97..5fcf2597 100644
--- a/pygments/lexers/functional.py
+++ b/pygments/lexers/functional.py
@@ -996,7 +996,7 @@ class HaskellLexer(RegexLexer):
],
'character': [
# Allows multi-chars, incorrectly.
- (r"[^\\']", String.Char),
+ (r"[^\\']'", String.Char, '#pop'),
(r"\\", String.Escape, 'escape'),
("'", String.Char, '#pop'),
],