From 6cc5f6b199583dfa2fddb0746681fc3985ab22d9 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Wed, 15 Aug 2007 17:28:21 +0000
Subject: [PATCH] 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(-)
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 "")