Fix attributeParser, add a test case for attr1 attr2='val'

Author: rnons

src/Html/Parser.purs

@@ -17,8 +17,8 @@ import Data.List (List)
 import Data.List as List
 import Data.String.CodeUnits (fromCharArray)
 import Text.Parsing.StringParser (Parser, ParseError, runParser, try)
-import Text.Parsing.StringParser.Combinators (many, manyTill, option, optional, sepEndBy)
 import Text.Parsing.StringParser.CodeUnits (anyChar, regex, skipSpaces, string, whiteSpace)
+import Text.Parsing.StringParser.Combinators (many, manyTill, option, optional, sepEndBy)
 
 data HtmlNode
   = HtmlElement Element
@@ -53,7 +53,8 @@ charListToString = fromCharArray <<< Array.fromFoldable
 
 attributeParser :: Parser HtmlAttribute
 attributeParser = do
-  k <- regex "[^=>/]+"
+  k <- regex "[^=>/ ]+"
+  void whiteSpace
   v <- option "" (equals *> quotedString)
   pure $ HtmlAttribute k v
 

test/Main.purs

@@ -80,6 +80,7 @@ rightHtml :: Array String
 rightHtml =
   [ "<iframe></iframe>"
   , "<iframe width ></iframe>"
+  , "<iframe width src='//'></iframe>"
   , """<iframe width ="560" ></iframe>"""
   , "<iframe width='560' ></iframe>"
   , """<iframe width = "560" ></iframe>"""