diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-03-03 17:12:29 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-03-03 17:12:29 +0100 |
| commit | e5bde183a5a44693a7d3cde72e8b40986ea03fad (patch) | |
| tree | d8ee0ba13c4e39fa0f276c6271a40a91734509a4 /src | |
| parent | 4c06ae274bfdb9844d71b51d8a71d8d7f0cf667e (diff) | |
| download | slackbuilder-e5bde183a5a44693a7d3cde72e8b40986ea03fad.tar.gz | |
Support extracting gzip on the fly
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 900891e..92b27f4 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -61,7 +61,7 @@ import System.Console.ANSI , ConsoleLayer(..) ) import System.Directory (listDirectory, doesDirectoryExist, withCurrentDirectory, removeDirectoryRecursive) -import Control.Monad (filterM) +import Control.Monad (filterM, void) import Data.List (isPrefixOf, isSuffixOf, partition) import Conduit (runConduitRes, (.|), sourceFile) import Data.Functor ((<&>)) @@ -407,7 +407,7 @@ reuploadWithTemplate downloadTemplate commands packagePath version = do relativeTarball = Text.unpack $ packagePath <> "/" <> downloadFileName tarball = repository' </> relativeTarball - extractRemote uri' packagePath + void $ extractRemote uri' packagePath download' <- handleReupload relativeTarball downloadFileName checksum <- liftIO $ runConduitRes $ sourceFile tarball .| sinkHash |