diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/EPUB.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs index cdf51b429..2a7c54750 100644 --- a/src/Text/Pandoc/Readers/EPUB.hs +++ b/src/Text/Pandoc/Readers/EPUB.hs @@ -51,7 +51,8 @@ type Items = M.Map Text (FilePath, MimeType) readEPUB :: PandocMonad m => ReaderOptions -> BL.ByteString -> m Pandoc readEPUB opts bytes = case toArchiveOrFail bytes of Right archive -> archiveToEPUB opts archive - Left _ -> throwError $ PandocParseError "Couldn't extract ePub file" + Left e -> throwError $ PandocParseError $ + "Couldn't extract ePub file: " <> T.pack e -- runEPUB :: Except PandocError a -> Either PandocError a -- runEPUB = runExcept |