From 8139d4cc158eb59042b52511dd333ae413c5e233 Mon Sep 17 00:00:00 2001 From: Andreas Abel Date: Fri, 17 Apr 2026 18:05:58 +0200 Subject: [PATCH] Workaround for hackage-server currently not accepting hackage-cli user-agent User agent has been added in https://github.com/haskell/hackage-server/pull/1493 but is not live yet. --- src/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index c4104f1..75bb934 100755 --- a/src/Main.hs +++ b/src/Main.hs @@ -120,7 +120,8 @@ hcReqLeft = hcReqCnt . to f setUA :: RequestBuilder () setUA = setHeader "User-Agent" uaStr where - uaStr = "hackage-cli/" <> BS8.pack (V.showVersion Paths_hackage_cli.version) + uaStr = "curl/" <> BS8.pack (V.showVersion Paths_hackage_cli.version) + -- uaStr = "hackage-cli/" <> BS8.pack (V.showVersion Paths_hackage_cli.version) hackageSendGET :: ByteString -> ByteString -> HIO () hackageSendGET p a = do