diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 00:22:50 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 00:22:50 +0000 |
| commit | ef4a0aaff4adbb56a16c62390b49d5211adcff22 (patch) | |
| tree | 31f3afb3970f5641ca20b9a9542a5c00f7bf8331 /bbcode | |
| parent | a471f23c7b5e6ebd3c4a0f094f1efa0a4d91da2a (diff) | |
| download | thermoprint-ef4a0aaff4adbb56a16c62390b49d5211adcff22.tar thermoprint-ef4a0aaff4adbb56a16c62390b49d5211adcff22.tar.gz thermoprint-ef4a0aaff4adbb56a16c62390b49d5211adcff22.tar.bz2 thermoprint-ef4a0aaff4adbb56a16c62390b49d5211adcff22.tar.xz thermoprint-ef4a0aaff4adbb56a16c62390b49d5211adcff22.zip | |
minor code cleanup
Diffstat (limited to 'bbcode')
| -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 |