More debug output.

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

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/src/Main.fs b/src/Main.fs
@@ -25,6 +25,7 @@ module Main =
     [<EntryPoint>]
     let main (args: string[]): int =
         let secrets = getSecretsFromEnvironment ()
+        printfn "Topic: %s" (secrets.NtfyTopic.Replace('-', '_'))
 
         let log = Logger.createMultiLogger [
             Logger.createConsoleLogger ()

diff --git a/src/Ntfy.fs b/src/Ntfy.fs
@@ -17,6 +17,8 @@ module Ntfy =
 
         printfn "StatusCode: %A" resp.StatusCode
         if resp.StatusCode <> HttpStatusCode.OK then
+            printfn "URL: %s" (url.Replace('-', '_'))
+            printfn "Topic: %s" (topic.Replace('-', '_'))
             printfn "Reason: %s" resp.ReasonPhrase
 
         ()