Fix default statuscode to 200 unless 0

haskell · Mar 11, 2018 · 707e289 · 707e289
1 parent 42d4885
commit 707e289
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -671,8 +671,12 @@ powershellTransport prog =
       , "}"
       , ""
       , "$responseStream = $request.getresponse()"
-      , "Write-Host ($response.StatusCode -as [int]);"
       , "$responseReader = new-object System.IO.StreamReader $responseStream.GetResponseStream()"
+      , "$code = $response.StatusCode -as [int]"
+      , "if ($code -eq 0) {"
+      , "  $code = 200;"
+      , "}"
+      , "Write-Host $code"
       , "Write-Host $responseReader.ReadToEnd()"
       ]