From 934558d25aa1074483ef722236e1e680abf13ebf Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 06:12:11 +0000 Subject: cleanup --- bbcode/src/Text/BBCode/Lexer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bbcode/src/Text') diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs index 7171a0e..03f57d2 100644 --- a/bbcode/src/Text/BBCode/Lexer.hs +++ b/bbcode/src/Text/BBCode/Lexer.hs @@ -29,11 +29,11 @@ data BBToken = BBOpen Text [(Text, Maybe Text)] -- ^ Tag open with attributes token :: Parser BBToken -- ^ Tokenizer token = BBClose <$> ("[/" *> escapedText' [']'] <* "]") - <|> uncurry BBOpen <$> openTag + <|> uncurry BBOpen <$ "[" <*> openTag <* "]" <|> BBStr <$> escapedText ['['] openTag :: Parser (Text, [(Text, Maybe Text)]) -openTag = (,) <$ "[" <*> escapedText' [']', ' ', '='] <*> attrs' <* "]" +openTag = (,) <$> escapedText' [']', ' ', '='] <*> attrs' attrs :: Parser [(Text, Maybe Text)] attrs = (:) <$> (namedAttr <|> plainValue) <* takeWhile isSpace <*> attrs' -- cgit v1.2.3