From 62b845c5e2c28a360102f095548e3dc3e9cf3200 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 22 Dec 2018 14:24:49 +0100
Subject: [PATCH] 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'.
---
guix/scripts/offload.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 1e0ea1c4c6b..bfdaa3c011b 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -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)))
--
GitLab