Revision fe3d6f02 Ganeti/HTools/Node.hs
b/Ganeti/HTools/Node.hs | ||
---|---|---|
52 | 52 |
, removeSec |
53 | 53 |
, addPri |
54 | 54 |
, addSec |
55 |
-- * Stats |
|
56 |
, availDisk |
|
55 | 57 |
-- * Formatting |
56 | 58 |
, list |
57 | 59 |
-- * Misc stuff |
... | ... | |
339 | 341 |
r_mem = new_rmem, p_dsk = new_dp, |
340 | 342 |
p_rem = new_prem} |
341 | 343 |
|
344 |
-- * Stats functions |
|
345 |
|
|
346 |
-- | Computes the amount of available disk on a given node |
|
347 |
availDisk :: Node -> Int |
|
348 |
availDisk t = |
|
349 |
let _f = f_dsk t |
|
350 |
_l = lo_dsk t |
|
351 |
in |
|
352 |
if _l == noLimitInt |
|
353 |
then _f |
|
354 |
else if _f < _l |
|
355 |
then 0 |
|
356 |
else _f - _l |
|
357 |
|
|
342 | 358 |
-- * Display functions |
343 | 359 |
|
344 | 360 |
-- | String converter for the node list functionality. |
Also available in: Unified diff