aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--configure.ac2
-rw-r--r--guix.scm2
-rw-r--r--tojo-tokyo/monitoring.scm4
3 files changed, 4 insertions, 4 deletions
diff --git a/configure.ac b/configure.ac
index aedd18d..1f694e5 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,4 +1,4 @@
-AC_INIT([guile-tojo-tokyo-monitoring], [0.1.2])
+AC_INIT([guile-tojo-tokyo-monitoring], [0.1.3])
AC_CONFIG_SRCDIR([tojo-tokyo/monitoring.scm])
AC_CONFIG_AUX_DIR([build-aux])
AM_INIT_AUTOMAKE([-Wall -Werror foreign])
diff --git a/guix.scm b/guix.scm
index de7f96e..2dd5390 100644
--- a/guix.scm
+++ b/guix.scm
@@ -29,7 +29,7 @@
(define guile-tojo-tokyo-monitoring
(package
(name "guile-tojo-tokyo-monitoring")
- (version "0.1.2")
+ (version "0.1.3")
(source (string-append (getcwd) "/guile-tojo-tokyo-monitoring-" version ".tar.gz"))
(build-system gnu-build-system)
(native-inputs
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)