@@ -434,7 +434,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
434 case epubCoverImage metadata of
434 case epubCoverImage metadata of
435 Nothing -> return ([],[])
435 Nothing -> return ([],[])
436 Just img -> do
436 Just img -> do
437− let coverImage = "media/" ++ takeFileName img
437+ let coverImage = takeFileName img
438 cpContent <- lift $ writeHtml
438 cpContent <- lift $ writeHtml
439 opts'{ writerVariables =
439 opts'{ writerVariables =
440 ("coverpage","true"):
440 ("coverpage","true"):