diff options
author | Christopher Baines <mail@cbaines.net> | 2022-10-22 10:03:34 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-10-22 10:03:34 +0100 |
commit | 6cd8bd854332301edef6eee68080881b8349d768 (patch) | |
tree | e9f486fa7af1f259cfb9105f0ccfd42da007e5b8 /guix-build-coordinator/agent.scm | |
parent | 64d14ab709fe02bb7bcfebbfe4304af781811b43 (diff) | |
download | build-coordinator-6cd8bd854332301edef6eee68080881b8349d768.tar build-coordinator-6cd8bd854332301edef6eee68080881b8349d768.tar.gz |
Switch to using = for testing numerical equality
As I think I've been abusing eq?.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index c06987a..6c01617 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -518,7 +518,7 @@ (log-msg lgr 'INFO "starting " (length new-builds) " new " - (if (eq? (length new-builds) 1) "build" "builds")) + (if (= (length new-builds) 1) "build" "builds")) (for-each (lambda (job-args) (process-job-with-queue job-args)) @@ -735,7 +735,7 @@ but the guix-daemon claims it's unavailable" #t (lambda () (log-msg lgr 'DEBUG build-id ": deleting " - (if (eq? (length output-file-names) 1) + (if (= (length output-file-names) 1) "output" "outputs")) ;; There can be issues deleting links when collecting garbage @@ -808,11 +808,11 @@ but the guix-daemon claims it's unavailable" (lambda (exn) (if (store-protocol-error? exn) (cond - ((eq? (store-protocol-error-status exn) 1) + ((= (store-protocol-error-status exn) 1) (log-msg lgr 'INFO build-id ": build failed")) - ((eq? (store-protocol-error-status exn) 100) + ((= (store-protocol-error-status exn) 100) (log-msg lgr 'INFO build-id ": build failed (permanent failure)")) - ((eq? (store-protocol-error-status exn) 101) + ((= (store-protocol-error-status exn) 101) (log-msg lgr 'INFO build-id ": build failed due to a timeout")) (else (log-msg lgr 'ERROR build-id ": unknown store protocol error: " |