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
1 changed files with 1 additions and 1 deletions

View File

@ -733,7 +733,7 @@ machine."
(utsname:sysname uts) (utsname:release uts) (utsname:sysname uts) (utsname:release uts)
(utsname:machine uts) (utsname:machine uts)
(utsname:nodename uts) (utsname:nodename uts)
load (normalized-load machine load)
(/ free (expt 2 20) 1.)))) (/ free (expt 2 20) 1.))))
machines))) machines)))