More debug output.

TC-Fairplay · Nov 21, 2023 · 9a49bc3 · 9a49bc3
1 parent e107fd7
commit 9a49bc3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/Main.fs b/src/Main.fs
@@ -32,8 +32,8 @@ module Main =
         ]
 
         let result =
-            if isNull secrets.GotCourts.ApiKey || isNull secrets.GotCourts.PhpSessionId then
-                log.Write (Error, "💥", sprintf "Please set environment variables '%s' and '%s'." apiKeyName phpSessionIdName)
+            if isNull secrets.GotCourts.ApiKey || isNull secrets.GotCourts.PhpSessionId || isNull secrets.NtfyTopic then
+                log.Write (Error, "💥", sprintf "Please set environment variables '%s', '%s', and '%s'." apiKeyName phpSessionIdName ntfyTopicName)
                 1
             else
                 try

diff --git a/src/Ntfy.fs b/src/Ntfy.fs
@@ -15,8 +15,10 @@ module Ntfy =
         printfn "Posting text to ntfy.sh."
         let resp = client.PostAsync(url, sc) |> await
 
-        printfn "StatusCode: %A" resp.StatusCode
         if resp.StatusCode <> HttpStatusCode.OK then
-            printfn "Reason: %s" resp.ReasonPhrase
+            printfn "Error! Reason: %s" resp.ReasonPhrase
+            printfn "Length of topic name: %d chars." topic.Length
+        else
+            printfn "OK."
 
         ()