cbaines pushed a commit to branch master in repository maintenance. commit 6dd8e6dd43bb1468f9e3d42a9e02cd3415804ab5 Author: Christopher Baines <m...@cbaines.net> AuthorDate: Mon Jun 10 12:14:18 2024 +0100
hydra: bayfront: Use = for numerical comparisons. Rather than eq? as this is better Guile. * hydra/bayfront.scm (%guix-build-coordinator-configuration): Use = for numerical comparisons. --- hydra/bayfront.scm | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm index dcaa0984..3e17707b 100644 --- a/hydra/bayfront.scm +++ b/hydra/bayfront.scm @@ -1208,13 +1208,13 @@ add_header Content-Type text/plain;"))) "/etc/guix-build-coordinator/signing-key.sec") #:skip-publishing-proc (lambda (narinfo-filename _) - (eq? 200 - ((@ (web response) response-code) - (http-get - (string->uri - (string-append - "http://localhost:8734/" - narinfo-filename)))))) + (= 200 + ((@ (web response) response-code) + (http-get + (string->uri + (string-append + "http://localhost:8734/" + narinfo-filename)))))) #:combined-post-publish-hook (lambda (directory narinfos) (let* ((narinfos @@ -1291,16 +1291,16 @@ add_header Content-Type text/plain;"))) (string-take (string-drop (assq-ref output 'output) 11) 32))) - (not (eq? 200 - ;; There's some kind of weird - ;; syntax transformer issue with - ;; response-code - ((@ (web response) response-code) - (http-get - (string->uri - (string-append - "http://localhost:8734/" - output-hash ".narinfo")))))))) + (not (= 200 + ;; There's some kind of weird + ;; syntax transformer issue with + ;; response-code + ((@ (web response) response-code) + (http-get + (string->uri + (string-append + "http://localhost:8734/" + output-hash ".narinfo")))))))) (datastore-list-build-outputs (build-coordinator-datastore build-coordinator) uuid))))))) (extra-environment-variables