@@ -61,7 +61,6 @@ saveOpenDocumentAsODT destinationODTPath sourceDirRelative xml = do
61 "Windows: See http://gnuwin32.sourceforge.net/packages/zip.htm"
61 "Windows: See http://gnuwin32.sourceforge.net/packages/zip.htm"
62 withTempDir "pandoc-odt" $ \tempDir -> do
62 withTempDir "pandoc-odt" $ \tempDir -> do
63 let tempODT = tempDir </> "reference.odt"
63 let tempODT = tempDir </> "reference.odt"
64− copyFile "odt-styles/reference.odt" tempODT
65 B.writeFile tempODT $ B.pack $(contentsOf $ "odt-styles" </> "reference.odt")
64 B.writeFile tempODT $ B.pack $(contentsOf $ "odt-styles" </> "reference.odt")
66 createDirectory $ tempDir </> "Pictures"
65 createDirectory $ tempDir </> "Pictures"
67 xml' <- handlePictures tempODT sourceDirRelative xml
66 xml' <- handlePictures tempODT sourceDirRelative xml