diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-12-27 11:43:31 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-12-27 11:43:31 +0000 |
| commit | c53e9896304f23c1ab3887dc6d952650141b13c3 (patch) | |
| tree | 541b51bc131d38621980d375399c184ac1301f77 /guix-build-coordinator | |
| parent | f8013a0b4dbe68194ac0244a5e1e4f28fcfc7763 (diff) | |
| download | build-coordinator-c53e9896304f23c1ab3887dc6d952650141b13c3.tar build-coordinator-c53e9896304f23c1ab3887dc6d952650141b13c3.tar.gz | |
Remove bodies from responses to HEAD requests
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))) |