Provide own lzma conduit adapters

2024-08-08 11:03:02 +02:00
parent 6d0248b4f8
commit 4ce20e3dd9
6 changed files with 42 additions and 8 deletions
--- a/lib/SlackBuilder/Trans.hs
+++ b/lib/SlackBuilder/Trans.hs
@@ -17,10 +17,12 @@ import Control.Monad.Catch (MonadCatch(..), MonadThrow(..))
 import Control.Exception (Exception(..))
 import System.FilePath ((</>))
 import Text.URI (URI)
+import qualified Codec.Compression.Lzma as Lzma

 data SlackBuilderException
    = UpdaterNotFound Text
    | HttpsUrlExpected URI
+    | LzmaDecompressionFailed Lzma.LzmaRet
    deriving Show

 instance Exception SlackBuilderException