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

fix param parsing

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-15 17:24:08 -04:00
parent 95e707a623
commit e2cfff1a3a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Cli/Cli.hs
View File

@@ -53,7 +53,7 @@ import Data.HashMap.Internal.Strict (
import Data.String.Interpolate.IsString (
i,
)
import Data.Text (toLower, splitOn)
import Data.Text (toLower, splitOn, unpack)
import Dhall (
Encoder (embed),
FromDhall (..),
@@ -528,10 +528,10 @@ upload (Upload name mpkg shouldIndex arches) = do
for_ pkgs $ \f -> $logWarn (fromString f)
exitWith $ ExitFailure 1
Just s -> pure s
putChunkLn $ fromString ("Checking authorization...") & fore green
let pkgId_ = head $ splitOn "." $ last $ splitOn "/" $ show pkg
putChunkLn $ fromString ("Checking permissions...") & fore green
pkgAuthBody <-
parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/auth/" <> show pkgId_)
parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/auth/" <> unpack pkgId_)
<&> setRequestHeaders [("accept", "text/plain")]
<&> setRequestResponseTimeout (responseTimeoutMicro (90_000_000))
<&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)