diff options
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 3976c6a..255d105 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -395,12 +395,10 @@ port. Also, the port used can be changed by passing the --port option.\n" #:code 200 #:headers `((content-length . ,bytes))) #f)) - (render-json - '((error . "no content")) - #:code 404))) - (render-json - '(("error" . "access denied")) - #:code 403)))) + (list (build-response #:code 404) + #f))) + (list (build-response #:code 403) + #f)))) (('PUT "build" uuid "output" output-name) (let ((agent-id-for-build (datastore-agent-for-build datastore uuid))) @@ -536,12 +534,10 @@ port. Also, the port used can be changed by passing the --port option.\n" #:code 200 #:headers `((content-length . ,bytes))) #f)) - (render-json - '((error . "no partial content")) - #:code 404))) - (render-json - '(("error" . "access denied")) - #:code 403)))) + (list (build-response #:code 404) + #f))) + (list (build-response #:code 403) + #f)))) (('POST "build" uuid "output" output-name "partial") (let ((agent-id-for-build (datastore-agent-for-build datastore uuid))) |