Revision 5f828ce4 htools/Ganeti/HTools/Cluster.hs
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 736 | 736 |
Bad message -> [printf "Group %s: error %s" gname message] |
| 737 | 737 |
where grp = Container.find groupId gl |
| 738 | 738 |
gname = Group.name grp |
| 739 |
pol = allocPolicyToString (Group.allocPolicy grp)
|
|
| 739 |
pol = allocPolicyToRaw (Group.allocPolicy grp)
|
|
| 740 | 740 |
|
| 741 | 741 |
-- | From a list of possibly bad and possibly empty solutions, filter |
| 742 | 742 |
-- only the groups with a valid result. Note that the result will be |
| ... | ... | |
| 842 | 842 |
-- this function, whatever mode we have is just a primary change. |
| 843 | 843 |
failOnSecondaryChange :: (Monad m) => EvacMode -> DiskTemplate -> m () |
| 844 | 844 |
failOnSecondaryChange ChangeSecondary dt = |
| 845 |
fail $ "Instances with disk template '" ++ diskTemplateToString dt ++
|
|
| 845 |
fail $ "Instances with disk template '" ++ diskTemplateToRaw dt ++
|
|
| 846 | 846 |
"' can't execute change secondary" |
| 847 | 847 |
failOnSecondaryChange _ _ = return () |
| 848 | 848 |
|
Also available in: Unified diff