Revision 66ad857a htools/Ganeti/HTools/Cluster.hs
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 828 | 828 |
goodSols = filterMGResults mggl sols |
| 829 | 829 |
sortedSols = sortMGResults mggl goodSols |
| 830 | 830 |
in if null sortedSols |
| 831 |
then if null groups' |
|
| 832 |
then Bad $ "no groups for evacuation: allowed groups was" ++
|
|
| 833 |
show allowed_gdxs ++ ", all groups: " ++ |
|
| 834 |
show (map fst groups) |
|
| 835 |
else Bad $ intercalate ", " all_msgs
|
|
| 831 |
then Bad $ if null groups'
|
|
| 832 |
then "no groups for evacuation: allowed groups was" ++
|
|
| 833 |
show allowed_gdxs ++ ", all groups: " ++
|
|
| 834 |
show (map fst groups)
|
|
| 835 |
else intercalate ", " all_msgs
|
|
| 836 | 836 |
else let (final_group, final_sol) = head sortedSols |
| 837 | 837 |
in return (final_group, final_sol, all_msgs) |
| 838 | 838 |
|
Also available in: Unified diff