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

fix warning

Browse Source
This commit is contained in:
Lucy Cifferello
2022-09-09 15:38:30 -06:00
parent 6f831e805d
commit 027a1d7b19
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Cli/Cli.hs
View File

@@ -586,7 +586,7 @@ eosUpload (EosUpload name img version) = do
<&> setRequestHeaders [("Content-Length", show size)] <&> setRequestHeaders [("Content-Length", show size)]
<&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass) <&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)
hash <- hashFile @_ @SHA256 img hash <- hashFile @_ @SHA256 img
bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral size) ()) bar <- newProgressBar defStyle 30 (Progress 0 size ())
body <- observedStreamFile (updateProgress bar . const . sfs2prog) img body <- observedStreamFile (updateProgress bar . const . sfs2prog) img
let withBody = setRequestBody body noBody let withBody = setRequestBody body noBody
let withQParams = let withQParams =