aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-12-22 14:24:49 +0100
committerLudovic Courtès <ludo@gnu.org>2018-12-23 22:14:15 +0100
commit62b845c5e2c28a360102f095548e3dc3e9cf3200 (patch)
treed2075e1220e6bffff2ef9e9aede5e6ad166343c5
parent1a1b54b5bd59757af8f6fdbf202c11a65f8d8dd8 (diff)
downloadguix-62b845c5e2c28a360102f095548e3dc3e9cf3200.tar
guix-62b845c5e2c28a360102f095548e3dc3e9cf3200.tar.gz
offload: Display the normalized load in 'guix offload status' output.
Fixes a regression introduced in bbe66a530a014e8146d63002a5294941e935f863 whereby the actual load (non-normalized) would be displayed. * guix/scripts/offload.scm (check-machine-status): Add call to 'normalized-load'.
-rw-r--r--guix/scripts/offload.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 1e0ea1c4c6..bfdaa3c011 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -733,7 +733,7 @@ machine."
(utsname:sysname uts) (utsname:release uts)
(utsname:machine uts)
(utsname:nodename uts)
- load
+ (normalized-load machine load)
(/ free (expt 2 20) 1.))))
machines)))