02/04: hydra: bayfront: Use = for numerical comparisons.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository maintenance.

commit 6dd8e6dd43bb1468f9e3d42a9e02cd3415804ab5
Author: Christopher Baines <mail@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