@@ -140,7 +140,7 @@ htmlAttribute = htmlRegularAttribute <|> htmlMinimizedAttribute
141-- minimized boolean attribute (no = and value)
141-- minimized boolean attribute (no = and value)
142htmlMinimizedAttribute = try (do
142htmlMinimizedAttribute = try (do
143− spaces
143+ many1 space
144 name <- many1 (choice [letter, oneOf ".-_:"])
144 name <- many1 (choice [letter, oneOf ".-_:"])
146 notFollowedBy (char '=')
146 notFollowedBy (char '=')
@@ -148,7 +148,7 @@ htmlMinimizedAttribute = try (do
148 return (name, content, (" " ++ name)))
148 return (name, content, (" " ++ name)))
150htmlRegularAttribute = try (do
150htmlRegularAttribute = try (do
151− spaces
151+ many1 space
152 name <- many1 (choice [letter, oneOf ".-_:"])
152 name <- many1 (choice [letter, oneOf ".-_:"])