diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-03-15 15:20:52 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-03-15 15:20:52 -0700 |
commit | a1c0210dcd7902a942b91137ca420431a9828134 (patch) | |
tree | d870bfedf7761ebc91ec45a76c6a62f02edefeda /src/Text/Pandoc/Writers | |
parent | db3d4113a2c3ef8f36329f08afa02828df79ec75 (diff) | |
download | pandoc-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/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/ODT.hs | 4 |
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" |