aboutsummaryrefslogtreecommitdiff
path: root/tojo-tokyo/monitoring.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tojo-tokyo/monitoring.scm')
-rw-r--r--tojo-tokyo/monitoring.scm4
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)