diff options
Diffstat (limited to 'tojo-tokyo/monitoring.scm')
| -rw-r--r-- | tojo-tokyo/monitoring.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tojo-tokyo/monitoring.scm b/tojo-tokyo/monitoring.scm index b7f56bb..b46f0a2 100644 --- a/tojo-tokyo/monitoring.scm +++ b/tojo-tokyo/monitoring.scm @@ -57,7 +57,7 @@ (define-syntax-rule (heartbeat (p? body ...) ...) (let ((heartbeat-cancel? #f)) - (when p? body ... (set! heartbeat-cancel? #t))) ... + (when p? body ... (set! heartbeat-cancel? #t)) ... (unless heartbeat-cancel? - (http-request (current-heartbeat-url)))) + (http-request (current-heartbeat-url))))) (export-syntax heartbeat) |