diff options
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: " |