remove uneeded log

This commit is contained in:
Lucy Cifferello
2024-04-15 17:32:04 -04:00
parent e2cfff1a3a
commit 505be01005

View File

@@ -528,7 +528,6 @@ upload (Upload name mpkg shouldIndex arches) = do
for_ pkgs $ \f -> $logWarn (fromString f) for_ pkgs $ \f -> $logWarn (fromString f)
exitWith $ ExitFailure 1 exitWith $ ExitFailure 1
Just s -> pure s Just s -> pure s
putChunkLn $ fromString ("Checking authorization...") & fore green
let pkgId_ = head $ splitOn "." $ last $ splitOn "/" $ show pkg let pkgId_ = head $ splitOn "." $ last $ splitOn "/" $ show pkg
pkgAuthBody <- pkgAuthBody <-
parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/auth/" <> unpack pkgId_) parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/auth/" <> unpack pkgId_)