From a1c0210dcd7902a942b91137ca420431a9828134 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 15 Mar 2013 15:20:52 -0700 Subject: 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. --- src/Text/Pandoc/Writers/ODT.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers') 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 "" $$ ( 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 "" $$ ( inTags True "office:document-meta" -- cgit v1.2.3