diff options
Diffstat (limited to 'guix-data-service/builds.scm')
| -rw-r--r-- | guix-data-service/builds.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 2fe31ce..342a802 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -418,7 +418,7 @@ WHERE derivation_output_details.path = $1" (http-request build-url))) (cond - ((eq? (response-code response) 200) + ((= (response-code response) 200) (json-string->scm (bytevector->string body "utf-8"))) (else @@ -439,7 +439,7 @@ WHERE derivation_output_details.path = $1" (read-to-eof port)))) (handler (cond - ((eq? (response-code response) 200) + ((= (response-code response) 200) (json-string->scm (bytevector->string response-body "utf-8"))) @@ -475,7 +475,7 @@ WHERE derivation_output_details.path = $1" (read-to-eof port)))) (handler (cond - ((eq? (response-code response) 200) + ((= (response-code response) 200) (json-string->scm (bytevector->string response-body "utf-8"))) |