@@ -23,6 +23,8 @@ import System.FilePath
2323
2424import Control.Monad.Except (throwError)
2525
26+import qualified Data.Text as T
27+
2628import Text.Pandoc.Class.PandocMonad (PandocMonad)
2729import qualified Text.Pandoc.Class.PandocMonad as P
2830import Text.Pandoc.Definition
@@ -60,7 +62,8 @@ readOdt' _ bytes = bytesToOdt bytes-- of
6062bytesToOdt :: B.ByteString -> Either PandocError (Pandoc, MediaBag)
6163bytesToOdt bytes = case toArchiveOrFail bytes of
6264 Right archive -> archiveToOdt archive
63− Left _ -> Left $ PandocParseError "Couldn't parse odt file."
65+ Left err -> Left $ PandocParseError
66+ $ "Could not unzip ODT: " <> T.pack err
6467
6568--
6669archiveToOdt :: Archive -> Either PandocError (Pandoc, MediaBag)