diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-03-19 18:46:09 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-03-19 18:46:09 +0000 |
| commit | ee644ddda05db1b5af66f0fe4f32de68f3b9f182 (patch) | |
| tree | 08be753b74cb658431ec14fd9674dbf6278c774a | |
| parent | dcb37d32d1992fdff4baa50a62fa75f47dd31bac (diff) | |
| download | pandoc-ee644ddda05db1b5af66f0fe4f32de68f3b9f182.tar.gz | |
OpenDocument writer: Don't print raw HTML.
(Note: For the DocBook writer, it makes sense to pass through
HTML raw, since the "HTML" might be DocBook XML. But this isn't
desirable for the OpenDocument writer, it seems to me.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1254 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index b21871823..f06af9fe7 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -224,7 +224,7 @@ blockToOpenDocument o bs | Header i b <- bs = inHeaderTags i <$> wrap o b | BlockQuote b <- bs = doBlockQuote b | CodeBlock _ s <- bs = preformatted s - | RawHtml s <- bs = preformatted s + | RawHtml _ <- bs = return empty | DefinitionList b <- bs = defList b | BulletList b <- bs = bulletListToOpenDocument o b | OrderedList a b <- bs = orderedList a b @@ -310,7 +310,7 @@ inlineToOpenDocument o ils | Code s <- ils = preformatted s | Math s <- ils = inlinesToOpenDocument o (readTeXMath s) | TeX s <- ils = preformatted s - | HtmlInline s <- ils = preformatted s + | HtmlInline _ <- ils = return empty | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l | Note l <- ils = mkNote l |