@@ -46,7 +46,6 @@ import Text.Pandoc.UUID
4646import Text.Pandoc.Writers.HTML
4747import Text.Pandoc.Writers.Markdown ( writePlain )
4848import Data.Char ( toLower )
49−import System.Directory ( copyFile )
5049import Network.URI ( unEscapeString )
5150
5251-- | Produce an EPUB file from a Pandoc document.
@@ -70,7 +69,6 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do
7069 Nothing -> return ([],[])
7170 Just img -> do
7271 let coverImage = "cover-image" ++ takeExtension img
73− copyFile img coverImage
7472 let cpContent = fromString $ writeHtmlString
7573 opts'{writerTemplate = pageTemplate
7674 ,writerVariables =