Revision 2c9336a4 htools/Ganeti/HTools/Cluster.hs
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 724 | 724 |
Bad message -> [printf "Group %s: error %s" gname message] |
| 725 | 725 |
where grp = Container.find groupId gl |
| 726 | 726 |
gname = Group.name grp |
| 727 |
pol = apolToString (Group.allocPolicy grp)
|
|
| 727 |
pol = allocPolicyToString (Group.allocPolicy grp)
|
|
| 728 | 728 |
|
| 729 | 729 |
-- | From a list of possibly bad and possibly empty solutions, filter |
| 730 | 730 |
-- only the groups with a valid result. Note that the result will be |
| ... | ... | |
| 830 | 830 |
-- this function, whatever mode we have is just a primary change. |
| 831 | 831 |
failOnSecondaryChange :: (Monad m) => EvacMode -> DiskTemplate -> m () |
| 832 | 832 |
failOnSecondaryChange ChangeSecondary dt = |
| 833 |
fail $ "Instances with disk template '" ++ dtToString dt ++
|
|
| 833 |
fail $ "Instances with disk template '" ++ diskTemplateToString dt ++
|
|
| 834 | 834 |
"' can't execute change secondary" |
| 835 | 835 |
failOnSecondaryChange _ _ = return () |
| 836 | 836 |
|
Also available in: Unified diff