Fix upload statuscode

haskell · Mar 11, 2018 · 42d4885 · 42d4885
1 parent 50fbdc0
commit 42d4885
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -671,7 +671,7 @@ powershellTransport prog =
       , "}"
       , ""
       , "$responseStream = $request.getresponse()"
-      , "Write-Host \"200\";"
+      , "Write-Host ($response.StatusCode -as [int]);"
       , "$responseReader = new-object System.IO.StreamReader $responseStream.GetResponseStream()"
       , "Write-Host $responseReader.ReadToEnd()"
       ]