diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 5 |
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 "") |