HTML reader: allow : in tags.

Resolves Issue #274.
2010-12-15 14:11:50 -08:00 · 2010-12-15 14:11:50 -08:00 · 63cf37a9ca
commit 63cf37a9ca
parent a312d2a8ae
1 changed files with 6 additions and 2 deletions
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@ -164,7 +164,9 @@ anyHtmlTag :: GenParser Char ParserState [Char]
 anyHtmlTag = try $ do
  char '<'
  spaces
-  tag <- many1 alphaNum
+  first <- letter
+  rest <- many (alphaNum <|> char ':')
+  let tag = first : rest
  attribs <- many htmlAttribute
  spaces
  ender <- option "" (string "/")
@ -181,7 +183,9 @@ anyHtmlEndTag = try $ do
  spaces
  char '/'
  spaces
-  tag <- many1 alphaNum
+  first <- letter
+  rest <- many (alphaNum <|> char ':')
+  let tag = first : rest
  spaces
  char '>'
  let result = "</" ++ tag ++ ">"