From e701d4d7f24a11d94cf504e7efbcee4e1091b092 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 7 Oct 2020 17:43:12 +0100 Subject: Fix missing bad-request procedure --- guix-build-coordinator/agent-messaging/http/server.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 3038be0..0b2f963 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -43,6 +43,9 @@ #:use-module (guix-build-coordinator coordinator) #:export (http-agent-messaging-start-server)) +(define (bad-request message . args) + (throw 'bad-request message args)) + (define (fixed/read-request-body r) "Reads the request body from R, as a bytevector. Return ‘#f’ if there was no request body." -- cgit v1.2.3