diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2024-08-11 06:58:44 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2024-08-11 06:58:44 -0400 |
| commit | 391ec733bf265e3dd0a142123e021f8ab384d9b2 (patch) | |
| tree | 781ca83f717867df1bffa07d9d4e06584b0b546e /jakob/dynamic/notify.scm | |
| parent | 2a6edfb9341e510dfdc304772906e696064e08a2 (diff) | |
[dynamic] Guard some functions behind %debug-enabled
Diffstat (limited to 'jakob/dynamic/notify.scm')
| -rw-r--r-- | jakob/dynamic/notify.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/jakob/dynamic/notify.scm b/jakob/dynamic/notify.scm index ff8763c..cdd2209 100644 --- a/jakob/dynamic/notify.scm +++ b/jakob/dynamic/notify.scm @@ -15,6 +15,7 @@ ;;; <http://www.gnu.org/licenses/>. (define-module (jakob dynamic notify) + #:use-module (jakob dynamic config) #:use-module (json) #:use-module (web client) #:export (notify)) @@ -28,4 +29,5 @@ (format #f "https://~a/message?token=~a" gotify-base-url gotify-token)) (define body (scm->json-string `((priority . ,priority) (title . ,title) (message . ,message)))) - (http-post url #:headers '((content-type . (application/json))) #:body body)) + (unless (%debug-enabled) + (http-post url #:headers '((content-type . (application/json))) #:body body))) |