Skip to content
Snippets Groups Projects
Commit 78ecfa8f authored by Iustin Pop's avatar Iustin Pop
Browse files

Display two more stats in hspace 

This adds two new stats - sum of reserved ram and disk.
parent 301789f4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 0 deletions
hspace.hs
+ 4
− 0
View file @ 78ecfa8f
......@@ -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)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment