aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-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 "")