aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging/http.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-11-14 14:25:34 +0000
committerChristopher Baines <mail@cbaines.net>2021-11-14 14:25:34 +0000
commit4b36e2dcd2ea1214173546653a8d19cc4ab00119 (patch)
tree37f88130dd52d53076de37f22fa9e29f7c897b6e /guix-build-coordinator/agent-messaging/http.scm
parentaf7a43933347ee3a362490315ec9e4d12dfff884 (diff)
downloadbuild-coordinator-4b36e2dcd2ea1214173546653a8d19cc4ab00119.tar
build-coordinator-4b36e2dcd2ea1214173546653a8d19cc4ab00119.tar.gz
Don't error for responses with no body in coordinator-http-request
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r--guix-build-coordinator/agent-messaging/http.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm
index afefb52..f3ce0b8 100644
--- a/guix-build-coordinator/agent-messaging/http.scm
+++ b/guix-build-coordinator/agent-messaging/http.scm
@@ -173,7 +173,7 @@
body))))))
(else
(values
- (json-string->scm (utf8->string body))
+ (and body (json-string->scm (utf8->string body)))
response))))))
(retry-on-error (lambda ()