Revision bebe7a73 htools/Ganeti/HTools/Cluster.hs
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 172 | 172 |
-> [CStats] -- ^ Running cluster stats |
| 173 | 173 |
-> Result AllocResult -- ^ Allocation result |
| 174 | 174 |
|
| 175 |
-- | A simple type for the running solution of evacuations. |
|
| 176 |
type EvacInnerState = |
|
| 177 |
Either String (Node.List, Instance.Instance, Score, Ndx) |
|
| 178 |
|
|
| 175 | 179 |
-- * Utility functions |
| 176 | 180 |
|
| 177 | 181 |
-- | Verifies the N+1 status and return the affected nodes. |
| ... | ... | |
| 952 | 956 |
evacDrbdSecondaryInner :: Node.List -- ^ Cluster node list |
| 953 | 957 |
-> Instance.Instance -- ^ Instance being evacuated |
| 954 | 958 |
-> Gdx -- ^ The group index of the instance |
| 955 |
-> Either String ( Node.List |
|
| 956 |
, Instance.Instance |
|
| 957 |
, Score |
|
| 958 |
, Ndx) -- ^ Current best solution |
|
| 959 |
-> EvacInnerState -- ^ Current best solution |
|
| 959 | 960 |
-> Ndx -- ^ Node we're evaluating as new secondary |
| 960 |
-> Either String ( Node.List |
|
| 961 |
, Instance.Instance |
|
| 962 |
, Score |
|
| 963 |
, Ndx) -- ^ New best solution |
|
| 961 |
-> EvacInnerState -- ^ New best solution |
|
| 964 | 962 |
evacDrbdSecondaryInner nl inst gdx accu ndx = |
| 965 | 963 |
case applyMove nl inst (ReplaceSecondary ndx) of |
| 966 | 964 |
OpFail fm -> |
Also available in: Unified diff