Revision fe3d6f02
| 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