Support extracting gzip on the fly

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