Revision fafd0773 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 237 | 237 |
|
| 238 | 238 |
-- | Checks if an instance is mirrored. |
| 239 | 239 |
isMirrored :: Instance.Instance -> Bool |
| 240 |
isMirrored = |
|
| 241 |
(/= Types.MirrorNone) . Types.templateMirrorType . Instance.diskTemplate |
|
| 240 |
isMirrored = (/= Types.MirrorNone) . Instance.mirrorType |
|
| 242 | 241 |
|
| 243 | 242 |
-- | Returns the possible change node types for a disk template. |
| 244 | 243 |
evacModeOptions :: Types.MirrorType -> [Types.EvacMode] |
| ... | ... | |
| 1297 | 1296 |
conjoin $ map (\mode -> check_EvacMode defGroup inst' $ |
| 1298 | 1297 |
Cluster.tryNodeEvac defGroupList nl il mode |
| 1299 | 1298 |
[Instance.idx inst']) . |
| 1300 |
evacModeOptions . Types.templateMirrorType .
|
|
| 1301 |
Instance.diskTemplate $ inst'
|
|
| 1299 |
evacModeOptions . |
|
| 1300 |
Instance.mirrorType $ inst'
|
|
| 1302 | 1301 |
|
| 1303 | 1302 |
-- | Checks that on a 4-8 node cluster with two node groups, once we |
| 1304 | 1303 |
-- allocate an instance on the first node group, we can also change |
Also available in: Unified diff