diff options
| -rw-r--r-- | bbcode/src/Text/BBCode/Lexer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs index d2aa2bc..8060ed0 100644 --- a/bbcode/src/Text/BBCode/Lexer.hs +++ b/bbcode/src/Text/BBCode/Lexer.hs | |||
| @@ -66,7 +66,7 @@ escapedText cs = recurse $ choice [ takeWhile1 (not . special) | |||
| 66 | escapeChar = '\\' | 66 | escapeChar = '\\' |
| 67 | special = inClass $ escapeChar : cs | 67 | special = inClass $ escapeChar : cs |
| 68 | escapeChar' = string $ T.singleton escapeChar | 68 | escapeChar' = string $ T.singleton escapeChar |
| 69 | escapeSeq = escapeChar' >> (T.singleton <$> satisfy special) -- s/\\[:cs]/\1/ | 69 | escapeSeq = escapeChar' >> (T.singleton <$> satisfy special) -- s/\\([:cs])/\1/ |
| 70 | recurse p = mappend <$> p <*> escapedText' cs | 70 | recurse p = mappend <$> p <*> escapedText' cs |
| 71 | 71 | ||
| 72 | escapedText' :: [Char] -> Parser Text | 72 | escapedText' :: [Char] -> Parser Text |