Revision a8cbe1d7
| b/src/Ganeti/HTools/Program/Hroller.hs | ||
|---|---|---|
| 96 | 96 |
il' = Container.add idx inst' il |
| 97 | 97 |
return (nl', il') |
| 98 | 98 |
|
| 99 |
-- | Move an instance to one of the candidate nodes mentioned.
|
|
| 99 |
-- | Move a non-redundant instance to one of the candidate nodes mentioned.
|
|
| 100 | 100 |
locateInstance :: Idx -> [Ndx] -> (Node.List, Instance.List) |
| 101 | 101 |
-> Result (Node.List, Instance.List) |
| 102 | 102 |
locateInstance idx ndxs conf = |
| 103 | 103 |
msum $ map (opToResult . flip (move idx) conf) ndxs |
| 104 | 104 |
|
| 105 |
-- | Move a list of instances to some of the candidate nodes mentioned.
|
|
| 105 |
-- | Move a list of non-redundant instances to some of the nodes mentioned.
|
|
| 106 | 106 |
locateInstances :: [Idx] -> [Ndx] -> (Node.List, Instance.List) |
| 107 | 107 |
-> Result (Node.List, Instance.List) |
| 108 | 108 |
locateInstances idxs ndxs conf = |
Also available in: Unified diff