From ef4a0aaff4adbb56a16c62390b49d5211adcff22 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 12 Jan 2016 00:22:50 +0000
Subject: minor code cleanup

---
 bbcode/src/Text/BBCode/Lexer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bbcode/src/Text')

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)
     escapeChar = '\\'
     special = inClass $ escapeChar : cs
     escapeChar' = string $ T.singleton escapeChar
-    escapeSeq = escapeChar' >> (T.singleton <$> satisfy special) -- s/\\[:cs]/\1/
+    escapeSeq = escapeChar' >> (T.singleton <$> satisfy special) -- s/\\([:cs])/\1/
     recurse p = mappend <$> p <*> escapedText' cs
 
 escapedText' :: [Char] -> Parser Text
-- 
cgit v1.2.3