More debug output.

TC-Fairplay · Nov 21, 2023 · e107fd7 · e107fd7
1 parent cef8c28
commit e107fd7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Ntfy.fs b/src/Ntfy.fs
@@ -1,5 +1,6 @@
 namespace TcFairplay
 
+open System.Net
 open System.Net.Http
 
 module Ntfy =
@@ -15,4 +16,7 @@ module Ntfy =
         let resp = client.PostAsync(url, sc) |> await
 
         printfn "StatusCode: %A" resp.StatusCode
+        if resp.StatusCode <> HttpStatusCode.OK then
+            printfn "Reason: %s" resp.ReasonPhrase
+
         ()