Rose-Tree labels now carry attributes

1 files changed, 4 insertions, 1 deletions

diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs
index ad26113..2eb0022 100644
--- a/bbcode/src/Text/BBCode/Lexer.hs
+++ b/bbcode/src/Text/BBCode/Lexer.hs
@@ -29,9 +29,12 @@ data BBToken = BBOpen Text [(Text, Maybe Text)] -- ^ Tag open with attributes
 token :: Parser BBToken
 -- ^ Tokenizer
 token = BBClose <$> ("[/" *> escapedText' [']'] <* "]")
-        <|> BBOpen <$> ("[" *> escapedText' [']', ' ']) <*> (option [] attrs <* "]")
+        <|> uncurry BBOpen <$> openTag
         <|> BBStr <$> escapedText ['[']
 
+openTag :: Parser (Text, [(Text, Maybe Text)])
+openTag = (,) <$> ("[" *> escapedText' [']', ' ']) <*> (option [] attrs <* "]")
+
 attrs :: Parser [(Text, Maybe Text)]
 attrs = (:) <$> (attrs' <* takeWhile isSpace) <*> (option [] $ attrs)
   where