git.iko.soy/typeable/pandoc
on master help sign in
Fixed regression in ODT writer.
a1c0210John MacFarlane
src/Text/Pandoc/Writers/ODT.hs+2−2
compare with master
unifiedsplit
@@ -78,7 +78,7 @@ writeODT opts doc@(Pandoc (Meta title _ _) _) = do
78 ]
78 ]
79 let files = [ ent | ent <- filesInArchive archive, not ("META-INF" `isPrefixOf` ent) ]
79 let files = [ ent | ent <- filesInArchive archive, not ("META-INF" `isPrefixOf` ent) ]
80 let manifestEntry = toEntry "META-INF/manifest.xml" epochtime
80 let manifestEntry = toEntry "META-INF/manifest.xml" epochtime
81− $ fromStringLazy $ show
81+ $ fromStringLazy $ render Nothing
82 $ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
82 $ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
83 $$
83 $$
84 ( inTags True "manifest:manifest"
84 ( inTags True "manifest:manifest"
@@ -92,7 +92,7 @@ writeODT opts doc@(Pandoc (Meta title _ _) _) = do
92 )
92 )
93 let archive' = addEntryToArchive manifestEntry archive
93 let archive' = addEntryToArchive manifestEntry archive
94 let metaEntry = toEntry "meta.xml" epochtime
94 let metaEntry = toEntry "meta.xml" epochtime
95− $ fromStringLazy $ show
95+ $ fromStringLazy $ render Nothing
96 $ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
96 $ text "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
97 $$
97 $$
98 ( inTags True "office:document-meta"
98 ( inTags True "office:document-meta"