@@ -408,7 +408,8 @@ inline = choice [ charRef
408 , whitespace
408 , whitespace
411− , rawHtmlInline ] <?> "inline"
411+ , rawHtmlInline
413code = try $ do
414code = try $ do
414 htmlTag "code"
415 htmlTag "code"
@@ -419,7 +420,7 @@ code = try $ do
419 joinWithSep " " $ lines result
420 joinWithSep " " $ lines result
421rawHtmlInline = do
422rawHtmlInline = do
422− result <- htmlScript <|> anyHtmlInlineTag
423+ result <- htmlScript <|> htmlComment <|> anyHtmlInlineTag
423 state <- getState
424 state <- getState
424 if stateParseRaw state then return (HtmlInline result) else return (Str "")
425 if stateParseRaw state then return (HtmlInline result) else return (Str "")