Revision 017160ed src/Ganeti/HTools/Cluster.hs

b/src/Ganeti/HTools/Cluster.hs
847 847 
                   (gr, genAllocNodes mggl nl cnt False >>=
848 848 
                        tryAlloc nl il inst))
849 849 
             groups''::[(Group.Group, Result AllocSolution)]
850 
      all_msgs = filter_group_msgs ++ (concatMap solutionDescription sols)
850 
      all_msgs = filter_group_msgs ++ concatMap solutionDescription sols
851 851 
      goodSols = filterMGResults sols
852 852 
      sortedSols = sortMGResults goodSols
853 853 
  in case sortedSols of

Also available in: Unified diff