From 40cb070fe61f7f3e90b184b869df0186947f3cb5 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 27 Oct 2011 12:53:46 -0700
Subject: Don't generate superfluous file `cover-image.jpg`.

Closes #319.
---
 src/Text/Pandoc/Writers/EPUB.hs | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/Text/Pandoc')

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 =
-- 
cgit v1.2.3