Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 19:54:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix request body and unzip once uploaded

Browse Source
This commit is contained in:
Lucy Cifferello
2022-09-14 15:46:12 -06:00
parent ff90f65b3c
commit 3c4f3a6a0b
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Cli/Cli.hs
View File

@@ -614,8 +614,8 @@ eosUpload (EosUpload name img version) = do
sourceFile img
.| gzip
.| sinkFileCautious compressedFilePath
gSize <- getFileSize compressedFilePath
bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral gSize) ())
compressedSize <- getFileSize compressedFilePath
bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral compressedSize) ())
body <- observedStreamFile (updateProgress bar . const . sfs2prog) $ compressedFilePath
let withBody = setRequestBody body noBody
let withQParams =
@@ -623,9 +623,9 @@ eosUpload (EosUpload name img version) = do
[("version", Just $ show version), ("hash", Just $ convertToBase Base16 hash)]
withBody
-- let withSource = setRequestBodySource (fromIntegral size) _ withQParams
let req = setRequestBodyFile compressedFilePath withQParams
-- let req = setRequestBodyFile compressedFilePath withQParams
manager <- newTlsManager
res <- runReaderT (httpLbs req) manager
res <- runReaderT (httpLbs withQParams) manager
removeFile $ compressedFilePath
if getResponseStatus res == status200
then -- no output is successful