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