@@ -46,7 +46,6 @@ import Text.Pandoc.UUID
46import Text.Pandoc.Writers.HTML
46import Text.Pandoc.Writers.HTML
47import Text.Pandoc.Writers.Markdown ( writePlain )
47import Text.Pandoc.Writers.Markdown ( writePlain )
48import Data.Char ( toLower )
48import Data.Char ( toLower )
49−import System.Directory ( copyFile )
50import Network.URI ( unEscapeString )
49import Network.URI ( unEscapeString )
52-- | Produce an EPUB file from a Pandoc document.
51-- | Produce an EPUB file from a Pandoc document.
@@ -70,7 +69,6 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do
70 Nothing -> return ([],[])
69 Nothing -> return ([],[])
71 Just img -> do
70 Just img -> do
72 let coverImage = "cover-image" ++ takeExtension img
71 let coverImage = "cover-image" ++ takeExtension img
73− copyFile img coverImage
74 let cpContent = fromString $ writeHtmlString
72 let cpContent = fromString $ writeHtmlString
75 opts'{writerTemplate = pageTemplate
73 opts'{writerTemplate = pageTemplate
76 ,writerVariables =
74 ,writerVariables =