@@ -140,7 +140,7 @@ htmlAttribute = htmlRegularAttribute <|> htmlMinimizedAttribute
140140
141141-- minimized boolean attribute (no = and value)
142142htmlMinimizedAttribute = try (do
143− spaces
143+ many1 space
144144 name <- many1 (choice [letter, oneOf ".-_:"])
145145 spaces
146146 notFollowedBy (char '=')
@@ -148,7 +148,7 @@ htmlMinimizedAttribute = try (do
148148 return (name, content, (" " ++ name)))
149149
150150htmlRegularAttribute = try (do
151− spaces
151+ many1 space
152152 name <- many1 (choice [letter, oneOf ".-_:"])
153153 spaces
154154 char '='