@@ -1,4 +1,4 @@
1−{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
1+{-# LANGUAGE TemplateHaskell #-}
22{-
33Copyright (C) 2008 John MacFarlane <jgm@berkeley.edu>
44
@@ -43,11 +43,7 @@ import Text.XML.Light
4343import Text.XML.Light.Cursor
4444import Text.Pandoc.Shared ( withTempDir )
4545import Network.URI ( isURI )
46−import Data.String ( IsString (..) )
47−import qualified Data.ByteString.Char8 as B ( writeFile, pack, ByteString )
48−
49−instance IsString B.ByteString
50− where fromString = B.pack
46+import qualified Data.ByteString.Char8 as B ( writeFile, pack )
5147
5248-- | Produce an ODT file from OpenDocument XML.
5349saveOpenDocumentAsODT :: FilePath -- ^ Pathname of ODT file to be produced.
@@ -68,7 +64,7 @@ saveOpenDocumentAsODT destinationODTPath sourceDirRelative xml = do
6864 withTempDir "pandoc-odt" $ \tempDir -> do
6965 let tempODT = tempDir </> "reference.odt"
7066 copyFile "odt-styles/reference.odt" tempODT
71− B.writeFile tempODT $(contentsOf "odt-styles/reference.odt")
67+ B.writeFile tempODT $ B.pack $(contentsOf "odt-styles/reference.odt")
7268 createDirectory $ tempDir </> "Pictures"
7369 xml' <- handlePictures tempODT sourceDirRelative xml
7470 writeFile (tempDir </> "content.xml") xml'