aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-03-15 15:20:52 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2013-03-15 15:20:52 -0700
commita1c0210dcd7902a942b91137ca420431a9828134 (patch)
treed870bfedf7761ebc91ec45a76c6a62f02edefeda /src
parentdb3d4113a2c3ef8f36329f08afa02828df79ec75 (diff)
downloadpandoc-a1c0210dcd7902a942b91137ca420431a9828134.tar.gz
Fixed regression in ODT writer.
This was due to a change in the Show instance for Text.Pandoc.Pretty.Doc, which led 1.11 to produce corrupt ODTs. Closes #780.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/ODT.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs
index dac718ac8..030a975f4 100644
--- a/src/Text/Pandoc/Writers/ODT.hs
+++ b/src/Text/Pandoc/Writers/ODT.hs
@@ -78,7 +78,7 @@ writeODT opts doc@(Pandoc (Meta title _ _) _) = do
]
let files = [ ent | ent <- filesInArchive archive, not ("META-INF" `isPrefixOf` ent) ]
let manifestEntry = toEntry "META-INF/manifest.xml" epochtime
- $ fromStringLazy $ show
+ $ fromStringLazy $ render Nothing
$ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
$$
( inTags True "manifest:manifest"
@@ -92,7 +92,7 @@ writeODT opts doc@(Pandoc (Meta title _ _) _) = do
)
let archive' = addEntryToArchive manifestEntry archive
let metaEntry = toEntry "meta.xml" epochtime
- $ fromStringLazy $ show
+ $ fromStringLazy $ render Nothing
$ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
$$
( inTags True "office:document-meta"