diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-10-27 12:53:46 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-10-27 12:53:46 -0700 |
commit | 40cb070fe61f7f3e90b184b869df0186947f3cb5 (patch) | |
tree | 31fd6618b3ec2e85456236c14bc2fb7075810767 /src | |
parent | 1a1f6cb08bc82c3c293dce42a73a43a5071b56f9 (diff) | |
download | pandoc-40cb070fe61f7f3e90b184b869df0186947f3cb5.tar.gz |
Don't generate superfluous file `cover-image.jpg`.
Closes #319.
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index eb915fef5..fe7b8d801 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -46,7 +46,6 @@ import Text.Pandoc.UUID import Text.Pandoc.Writers.HTML import Text.Pandoc.Writers.Markdown ( writePlain ) import Data.Char ( toLower ) -import System.Directory ( copyFile ) import Network.URI ( unEscapeString ) -- | Produce an EPUB file from a Pandoc document. @@ -70,7 +69,6 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do Nothing -> return ([],[]) Just img -> do let coverImage = "cover-image" ++ takeExtension img - copyFile img coverImage let cpContent = fromString $ writeHtmlString opts'{writerTemplate = pageTemplate ,writerVariables = |