Support extracting gzip on the fly

2024-03-03 17:12:29 +01:00
parent 4c06ae274b
commit e5bde183a5
4 changed files with 41 additions and 13 deletions
--- a/lib/SlackBuilder/Trans.hs
+++ b/lib/SlackBuilder/Trans.hs
@@ -16,8 +16,11 @@ import Control.Monad.IO.Class (MonadIO(..))
 import Control.Monad.Catch (MonadCatch(..), MonadThrow(..))
 import Control.Exception (Exception(..))
 import System.FilePath ((</>))
+import Text.URI (URI)

-newtype SlackBuilderException = UpdaterNotFound Text
+data SlackBuilderException
+    = UpdaterNotFound Text
+    | HttpsUrlExpected URI
    deriving Show

 instance Exception SlackBuilderException