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

revert content length as its already set by module

Browse Source
This commit is contained in:
Lucy Cifferello
2022-09-09 17:02:57 -06:00
parent 027a1d7b19
commit 78ba3e8adc
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Cli/Cli.hs
View File

@@ -578,15 +578,14 @@ upload (Upload name mpkg shouldIndex) = do
eosUpload :: EosUpload -> IO ()
eosUpload (EosUpload name img version) = do
PublishCfgRepo{..} <- findNameInCfg name
size <- fromInteger <$> getFileSize img
size <- getFileSize img
noBody <-
parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/eos-upload")
<&> setRequestHeaders [("accept", "text/plain")]
<&> setRequestHeaders [("Content-Encoding", "gzip")]
<&> setRequestHeaders [("Content-Length", show size)]
<&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)
hash <- hashFile @_ @SHA256 img
bar <- newProgressBar defStyle 30 (Progress 0 size ())
bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral size) ())
body <- observedStreamFile (updateProgress bar . const . sfs2prog) img
let withBody = setRequestBody body noBody
let withQParams =