summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-15 17:28:21 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-15 17:28:21 +0000
commit6cc5f6b199583dfa2fddb0746681fc3985ab22d9 (patch)
tree42e7b631a637167d5002a7f616929ebe685e1dfc /src/Text/Pandoc/Readers
parent8dc4e67400db9ac915daa2662f0f80c6a5036cf2 (diff)
Allow htmlComments as rawHtmlInline in HTML reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@844 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs5
1 files 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 "")