diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 66b55c448..8f8822d01 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -140,7 +140,7 @@ htmlAttribute = htmlRegularAttribute <|> htmlMinimizedAttribute -- minimized boolean attribute (no = and value) htmlMinimizedAttribute = try (do - spaces + many1 space name <- many1 (choice [letter, oneOf ".-_:"]) spaces notFollowedBy (char '=') @@ -148,7 +148,7 @@ htmlMinimizedAttribute = try (do return (name, content, (" " ++ name))) htmlRegularAttribute = try (do - spaces + many1 space name <- many1 (choice [letter, oneOf ".-_:"]) spaces char '=' |