diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 45711de..b7b1877 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -161,7 +161,7 @@ ,@headers)))) (let ((code (response-code response))) (cond - ((eq? code 400) + ((= code 400) (and=> (coordinator-handle-failed-request log method path @@ -172,7 +172,7 @@ (make-agent-error-from-coordinator (assoc-ref error "error")))))) - ((eq? code 404) + ((= code 404) (values (and body (json-string->scm (utf8->string body))) response)) @@ -227,7 +227,7 @@ #:decode-body? #f))) (let ((code (response-code response))) (cond - ((eq? code 400) + ((= code 400) (and=> (coordinator-handle-failed-request log method path @@ -293,8 +293,7 @@ "/output/" output-name "/partial") #:method 'HEAD))) - (if (eq? (response-code response) - 404) + (if (= (response-code response) 404) #f (response-content-length response)))) @@ -306,8 +305,7 @@ (string-append "/build/" build-id "/output/" output-name) #:method 'HEAD))) - (if (eq? (response-code response) - 404) + (if (= (response-code response) 404) #f (response-content-length response)))) @@ -336,8 +334,7 @@ (or partial-upload-bytes completed-upload-bytes)))) ;; Check if the server has all the bytes - (if (and bytes - (eq? bytes file-size)) + (if (and bytes (= bytes file-size)) (begin (log 'DEBUG "perform upload: server has all the bytes" " (partial-upload-bytes: " partial-upload-bytes @@ -418,7 +415,7 @@ (unless (and=> (get-completed-upload-bytes) (lambda (uploaded-bytes) - (eq? uploaded-bytes file-size))) + (= uploaded-bytes file-size))) (retry-on-error perform-upload #:times 100 #:delay 40 |