Revision 3409c0af
| b/src/Ganeti/HTools/Program/Hroller.hs | ||
|---|---|---|
| 94 | 94 |
-- | Predicate of belonging to a given group restriction. |
| 95 | 95 |
hasGroup :: Maybe Group.Group -> Node.Node -> Bool |
| 96 | 96 |
hasGroup Nothing _ = True |
| 97 |
hasGroup (Just grp) node = Node.group node == Group.idx grp
|
|
| 97 |
hasGroup (Just grp) node = Node.group node == Group.idx grp |
|
| 98 | 98 |
|
| 99 | 99 |
-- | Predicate of having at least one tag in a given set. |
| 100 | 100 |
hasTag :: Maybe [String] -> Node.Node -> Bool |
| ... | ... | |
| 140 | 140 |
Just grp -> return (Just grp) |
| 141 | 141 |
|
| 142 | 142 |
let nodes = IntMap.filter (foldl (liftA2 (&&)) (const True) |
| 143 |
[ not . Node.offline
|
|
| 143 |
[ not . Node.offline |
|
| 144 | 144 |
, hasTag $ optNodeTags opts |
| 145 | 145 |
, hasGroup wantedGroup ]) |
| 146 | 146 |
nlf |
Also available in: Unified diff