diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs index eb5e95b8af3aad9fc300a53c5b5546b5d6e0ed78..0a56bc110b25c969ad2d8952a574716388fd6bb3 100644 --- a/Ganeti/HTools/Cluster.hs +++ b/Ganeti/HTools/Cluster.hs @@ -173,13 +173,14 @@ updateCStats cs node = = cs inc_amem = (Node.f_mem node) - (Node.r_mem node) inc_amem' = if inc_amem > 0 then inc_amem else 0 + inc_adsk = Node.availDisk node in CStats { cs_fmem = x_fmem + (Node.f_mem node) , cs_fdsk = x_fdsk + (Node.f_dsk node) , cs_amem = x_amem + inc_amem' - , cs_adsk = x_adsk + , cs_adsk = x_adsk + inc_adsk , cs_acpu = x_acpu , cs_mmem = max x_mmem inc_amem' - , cs_mdsk = max x_mdsk (Node.f_dsk node) + , cs_mdsk = max x_mdsk inc_adsk , cs_mcpu = x_mcpu } diff --git a/hspace.hs b/hspace.hs index ed0255e965490266b99d8e57e08d521ac449f49a..4d5c0f5e8f457239fdc38e217fc8596d016746ef 100644 --- a/hspace.hs +++ b/hspace.hs @@ -192,6 +192,7 @@ 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 free disk: %d\n" kind (Cluster.cs_fdsk cs) + printf "%s allocatable disk: %d\n" kind (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)