Revision 0cc3d742 src/Ganeti/HTools/Node.hs
| b/src/Ganeti/HTools/Node.hs | ||
|---|---|---|
| 74 | 74 |
, computeGroups |
| 75 | 75 |
, mkNodeGraph |
| 76 | 76 |
, mkRebootNodeGraph |
| 77 |
, haveExclStorage |
|
| 77 | 78 |
) where |
| 78 | 79 |
|
| 79 | 80 |
import Control.Monad (liftM, liftM2) |
| ... | ... | |
| 222 | 223 |
decIf True base delta = base - delta |
| 223 | 224 |
decIf False base _ = base |
| 224 | 225 |
|
| 226 |
-- | Is exclusive storage enabled on any node? |
|
| 227 |
haveExclStorage :: List -> Bool |
|
| 228 |
haveExclStorage nl = |
|
| 229 |
any exclStorage $ Container.elems nl |
|
| 230 |
|
|
| 225 | 231 |
-- * Initialization functions |
| 226 | 232 |
|
| 227 | 233 |
-- | Create a new node. |
Also available in: Unified diff