Unnamed attributes

1 files changed, 4 insertions, 2 deletions

diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs
index 1c20928..7171a0e 100644
--- a/bbcode/src/Text/BBCode/Lexer.hs
+++ b/bbcode/src/Text/BBCode/Lexer.hs
@@ -33,11 +33,13 @@ token = BBClose <$> ("[/" *> escapedText' [']'] <* "]")
         <|> BBStr <$> escapedText ['[']
 
 openTag :: Parser (Text, [(Text, Maybe Text)])
-openTag = (,) <$ "[" <*> escapedText' [']', ' '] <* takeWhile isSpace <*> attrs' <* "]"
+openTag = (,) <$ "[" <*> escapedText' [']', ' ', '='] <*> attrs' <* "]"
 
 attrs :: Parser [(Text, Maybe Text)]
-attrs = (:) <$> ((,) <$> escapedText ['=', ']', ' '] <*> optional ("=" *> attrArg)) <* takeWhile isSpace <*> attrs'
+attrs = (:) <$> (namedAttr <|> plainValue) <* takeWhile isSpace <*> attrs'
   where
+    namedAttr = (,) <$ takeWhile isSpace <*> escapedText ['=', ']', ' '] <*> optional ("=" *> attrArg)
+    plainValue = (,) <$> pure "" <* "=" <*> (Just <$> attrArg)
     attrArg = "\"" *> escapedText ['"'] <* "\""
               <|> escapedText [']', ' ']