From bf43da01c931f1fda936d6357aa3677804d80add Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 8 Jul 2010 17:31:55 -0700 Subject: Added writerUserDataDir to WriterOptions. --- src/Text/Pandoc/Writers/ODT.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Writers/ODT.hs') diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs index f7acf8e08..5aa0fd310 100644 --- a/src/Text/Pandoc/Writers/ODT.hs +++ b/src/Text/Pandoc/Writers/ODT.hs @@ -42,12 +42,12 @@ import System.Directory import Control.Monad (liftM) -- | Produce an ODT file from a Pandoc document. -writeODT :: Maybe FilePath -- ^ Path of user data directory - -> Maybe FilePath -- ^ Path specified by --reference-odt +writeODT :: Maybe FilePath -- ^ Path specified by --reference-odt -> WriterOptions -- ^ Writer options -> Pandoc -- ^ Document to convert -> IO B.ByteString -writeODT datadir mbRefOdt opts doc = do +writeODT mbRefOdt opts doc = do + let datadir = writerUserDataDir opts refArchive <- liftM toArchive $ case mbRefOdt of Just f -> B.readFile f -- cgit v1.2.3