From 44382a2e41b8b60594df0d8b64cf48feb346f8c9 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 1 Aug 2008 21:42:22 +0000 Subject: Use with contentsOf to ensure that paths are portable. Do not use hardcoded '/' characters! git-svn-id: https://pandoc.googlecode.com/svn/trunk@1364 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/ODT.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Text/Pandoc/ODT.hs') diff --git a/Text/Pandoc/ODT.hs b/Text/Pandoc/ODT.hs index bb49792eb..6c0cca0a9 100644 --- a/Text/Pandoc/ODT.hs +++ b/Text/Pandoc/ODT.hs @@ -62,7 +62,7 @@ saveOpenDocumentAsODT destinationODTPath sourceDirRelative xml = do withTempDir "pandoc-odt" $ \tempDir -> do let tempODT = tempDir "reference.odt" copyFile "odt-styles/reference.odt" tempODT - B.writeFile tempODT $ B.pack $(contentsOf "odt-styles/reference.odt") + B.writeFile tempODT $ B.pack $(contentsOf $ "odt-styles" "reference.odt") createDirectory $ tempDir "Pictures" xml' <- handlePictures tempODT sourceDirRelative xml writeFile (tempDir "content.xml") xml' -- cgit v1.2.3