diff options
author | John MacFarlane <jgm@berkeley.edu> | 2010-07-08 17:14:03 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-08 17:16:30 -0700 |
commit | d67ec663ba65d8001afdc9cf404192ff41108592 (patch) | |
tree | e18d07996ca2adeca626d377b895d8e2510dacd2 /src/Text/Pandoc/Writers/EPUB.hs | |
parent | 84178204983aeff0cf8c260316db8cb7db271e11 (diff) |
Added writerSourceDirectory to WriterOptions.
This allows us to remove an argument from the ODT and EPUB
writers.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index a96f0bda3..998a5aa3a 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -47,16 +47,16 @@ import Text.Pandoc.Writers.Markdown ( writePlain ) import Data.Char ( toLower ) -- | Produce an EPUB file from a Pandoc document. -writeEPUB :: FilePath -- ^ Relative directory of source file - -> String -- ^ EPUB stylesheet +writeEPUB :: String -- ^ EPUB stylesheet -> WriterOptions -- ^ Writer options -> Pandoc -- ^ Document to convert -> IO B.ByteString -writeEPUB sourceDir stylesheet opts doc = do +writeEPUB stylesheet opts doc = do (TOD epochtime _) <- getClockTime let opts' = opts{ writerEmailObfuscation = NoObfuscation , writerStandalone = True , writerWrapText = False } + let sourceDir = writerSourceDirectory opts' -- mimetype let mimetypeEntry = toEntry "mimetype" epochtime $ fromString "application/epub+zip" -- container.xml |