diff options
Diffstat (limited to 'Text/Pandoc/ODT.hs')
| -rw-r--r-- | Text/Pandoc/ODT.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/ODT.hs b/Text/Pandoc/ODT.hs index 3e5b2a158..423623d5b 100644 --- a/Text/Pandoc/ODT.hs +++ b/Text/Pandoc/ODT.hs @@ -29,7 +29,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Functions for producing an ODT file from OpenDocument XML. -} module Text.Pandoc.ODT ( saveOpenDocumentAsODT ) where -import Text.Pandoc.Shared ( contentsOf ) +import Text.Pandoc.TH ( binaryContentsOf ) import Data.Maybe ( fromJust, isJust ) import Data.List ( partition, intersperse ) import Prelude hiding ( writeFile, readFile ) @@ -61,7 +61,7 @@ saveOpenDocumentAsODT destinationODTPath sourceDirRelative xml = do "Windows: See http://gnuwin32.sourceforge.net/packages/zip.htm" withTempDir "pandoc-odt" $ \tempDir -> do let tempODT = tempDir </> "reference.odt" - B.writeFile tempODT $ B.pack $(contentsOf $ "odt-styles" </> "reference.odt") + B.writeFile tempODT $ B.pack $(binaryContentsOf $ "odt-styles" </> "reference.odt") createDirectory $ tempDir </> "Pictures" xml' <- handlePictures tempODT sourceDirRelative xml writeFile (tempDir </> "content.xml") xml' |