Revision 2a58a7b1
b/src/Ganeti/HTools/Program/Hsqueeze.hs | ||
---|---|---|
85 | 85 |
. any (Instance.usesLocalStorage . flip Container.find il) |
86 | 86 |
$ Node.pList nd |
87 | 87 |
|
88 |
-- | Predicate of not being secondary node for any instance |
|
89 |
noSecondaries :: Node.Node -> Bool |
|
90 |
noSecondaries = null . Node.sList |
|
91 |
|
|
88 | 92 |
-- | Predicate whether, in a configuration, all running instances are on |
89 | 93 |
-- online nodes. |
90 | 94 |
allInstancesOnOnlineNodes :: (Node.List, Instance.List) -> Bool |
... | ... | |
210 | 214 |
. filter (foldl (liftA2 (&&)) (const True) |
211 | 215 |
[ not . Node.offline |
212 | 216 |
, not . Node.isMaster |
217 |
, noSecondaries |
|
213 | 218 |
, onlyExternal (nlf, ilf) |
214 | 219 |
]) |
215 | 220 |
$ nodelist |
Also available in: Unified diff