From 6cc5f6b199583dfa2fddb0746681fc3985ab22d9 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Wed, 15 Aug 2007 17:28:21 +0000 Subject: Allow htmlComments as rawHtmlInline in HTML reader. git-svn-id: https://pandoc.googlecode.com/svn/trunk@844 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Readers/HTML.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 1eb5d7b4a..85aa1e4a3 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -408,7 +408,8 @@ inline = choice [ charRef , whitespace , link , image - , rawHtmlInline ] "inline" + , rawHtmlInline + ] "inline" code = try $ do htmlTag "code" @@ -419,7 +420,7 @@ code = try $ do joinWithSep " " $ lines result rawHtmlInline = do - result <- htmlScript <|> anyHtmlInlineTag + result <- htmlScript <|> htmlComment <|> anyHtmlInlineTag state <- getState if stateParseRaw state then return (HtmlInline result) else return (Str "") -- cgit v1.2.3