diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-24 10:49:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-24 10:49:40 +0000 |
| commit | 5e3ce858dcba23a333470ee2785088f3741d4560 (patch) | |
| tree | b09855846ba04810c1a45dec772b5ac6243c64bb /guix-build-coordinator | |
| parent | 3c2388f0c1cd54444b30e995a2d7ae0d9475b7ec (diff) | |
| download | build-coordinator-5e3ce858dcba23a333470ee2785088f3741d4560.tar build-coordinator-5e3ce858dcba23a333470ee2785088f3741d4560.tar.gz | |
Remove unnecessary nproc usage
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 2b098e5..91dcb07 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -54,8 +54,7 @@ with-timeout - get-load-average - get-available-processing-units)) + get-load-average)) (define (random-v4-uuid) ;; https://tools.ietf.org/html/rfc4122#page-14 @@ -707,9 +706,3 @@ again." ((= period 5) 5min) ((= period 15) 15min)))))) #f)) - -(define (get-available-processing-units) - (let* ((port (open-input-pipe "nproc --all")) - (str (read-line port))) - (close-pipe port) - (string->number str))) |