diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-24 19:07:35 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-24 19:07:35 +0000 |
commit | c61f2b6984c8855c0da7df10fd83e40332223f48 (patch) | |
tree | 2883cd146bd17a3eb4b799c405a070b4143e280f | |
parent | ca6cb23f23724d01b5f7d6ee7a3c9527ca8807e6 (diff) | |
download | pandoc-c61f2b6984c8855c0da7df10fd83e40332223f48.tar.gz |
Fixed bug in HTML attribute parser: now a space is
required before an attribute. Previously, <a.b>
would be parsed as an HTML tag with an attribute!
git-svn-id: https://pandoc.googlecode.com/svn/trunk@509 788f1e2b-df1e-0410-8736-df70ead52e1b
-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 '=' |