offload: Display the normalized load in 'guix offload status' output.

Fixes a regression introduced in
bbe66a530a whereby the actual
load (non-normalized) would be displayed.

* guix/scripts/offload.scm (check-machine-status): Add call to
'normalized-load'.
This commit is contained in:
Ludovic Courtès 2018-12-22 14:24:49 +01:00
parent 1a1b54b5bd
commit 62b845c5e2
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -733,7 +733,7 @@ (define (build-machine=? m1 m2)
(utsname:sysname uts) (utsname:release uts)
(utsname:machine uts)
(utsname:nodename uts)
load
(normalized-load machine load)
(/ free (expt 2 20) 1.))))
machines)))