From 78ecfa8f4edb5044e67d5c96b604623a1d06ba71 Mon Sep 17 00:00:00 2001 From: Iustin Pop <iustin@google.com> Date: Fri, 3 Jul 2009 22:40:35 +0300 Subject: [PATCH] Display two more stats in hspace This adds two new stats - sum of reserved ram and disk. --- hspace.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/hspace.hs b/hspace.hs index 4d5c0f5e8..4a5c2f18d 100644 --- a/hspace.hs +++ b/hspace.hs @@ -191,8 +191,12 @@ printStats :: String -> Cluster.CStats -> IO () printStats kind cs = do printf "%s free RAM: %d\n" kind (Cluster.cs_fmem cs) printf "%s allocatable RAM: %d\n" kind (Cluster.cs_amem cs) + printf "%s reserved RAM: %d\n" kind ((Cluster.cs_fmem cs) - + (Cluster.cs_amem cs)) printf "%s free disk: %d\n" kind (Cluster.cs_fdsk cs) printf "%s allocatable disk: %d\n" kind (Cluster.cs_adsk cs) + printf "%s reserved disk: %d\n" kind ((Cluster.cs_fdsk cs) - + (Cluster.cs_adsk cs)) printf "%s max node allocatable RAM: %d\n" kind (Cluster.cs_mmem cs) printf "%s max node allocatable disk: %d\n" kind (Cluster.cs_mdsk cs) -- GitLab