diff options
author | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:42:27 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:42:27 +0000 |
commit | 54fc4c2faf9e3c5693e85705478377cd37d60465 (patch) | |
tree | 401a078b91fa19ded09f9c1e2f74764854153f3e /guix-build-coordinator/build-allocator.scm | |
parent | 3b6b255b0017c4302a9398950560fd47ee7d082d (diff) | |
download | build-coordinator-54fc4c2faf9e3c5693e85705478377cd37d60465.tar build-coordinator-54fc4c2faf9e3c5693e85705478377cd37d60465.tar.gz |
Stop the derivation ordered allocator from logging lots
This value was unintentionally changed, it's just intended for local
debugging.
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 69a1888..3a1c9eb 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -448,7 +448,7 @@ (builds-created-after #f) ;; "datetime('now', '-60 days')") metrics-registry) (define (log . args) - (when #t + (when #f (simple-format #t "allocator: ~A\n" (string-join (map (lambda (arg) (simple-format #f "~A" arg)) |