check result of PutAsync

fsprojects · Jul 10, 2017 · df132f1 · df132f1
1 parent e916e88
commit df132f1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Paket.Core/Common/Utils.fs b/src/Paket.Core/Common/Utils.fs
@@ -500,7 +500,10 @@ type HttpClient with
         stream.Write(trailerbytes, 0, trailerbytes.Length)
         stream.Write(newlineBytes, 0, newlineBytes.Length)
         stream.Position <- 0L
-        x.PutAsync(url, new StreamContent(stream)).GetAwaiter().GetResult()
+        let result = x.PutAsync(url, new StreamContent(stream)).GetAwaiter().GetResult()
+        failIfNoSuccess result |> Async.RunSynchronously
+        result
+
 
 let internal addAcceptHeader (client:HttpClient) (contentType:string) =
     for headerVal in contentType.Split([|','|], System.StringSplitOptions.RemoveEmptyEntries) do