Allow htmlComments as rawHtmlInline in HTML reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@844 788f1e2b-df1e-0410-8736-df70ead52e1b
commit6cc5f6b199583dfa2fddb0746681fc3985ab22d9
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateWed 15 Aug 2007, 17:28 (19 years ago)
parent8dc4e67
src/Text/Pandoc/Readers/HTML.hs+3−2
@@ -408,7 +408,8 @@ inline = choice [ charRef
408408 , whitespace
409409 , link
410410 , image
411− , rawHtmlInline ] <?> "inline"
411+ , rawHtmlInline
412+ ] <?> "inline"
412413
413414code = try $ do
414415 htmlTag "code"
@@ -419,7 +420,7 @@ code = try $ do
419420 joinWithSep " " $ lines result
420421
421422rawHtmlInline = do
422− result <- htmlScript <|> anyHtmlInlineTag
423+ result <- htmlScript <|> htmlComment <|> anyHtmlInlineTag
423424 state <- getState
424425 if stateParseRaw state then return (HtmlInline result) else return (Str "")
425426