diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-15 17:28:21 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-15 17:28:21 +0000 |
commit | 6cc5f6b199583dfa2fddb0746681fc3985ab22d9 (patch) | |
tree | 42e7b631a637167d5002a7f616929ebe685e1dfc /src/Text/Pandoc/Readers | |
parent | 8dc4e67400db9ac915daa2662f0f80c6a5036cf2 (diff) | |
download | pandoc-6cc5f6b199583dfa2fddb0746681fc3985ab22d9.tar.gz |
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.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 "") |