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
