Revision 6a855aaa htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
108 108
  , esFailed  :: [(Idx, String)]      -- ^ Instances which were not
109 109
                                      -- relocated
110 110
  , esOpCodes :: [[OpCodes.OpCode]]   -- ^ List of jobs
111
  }
111
  } deriving (Show)
112 112

  
113 113
-- | Allocation results, as used in 'iterateAlloc' and 'tieredAlloc'.
114 114
type AllocResult = (FailStats, Node.List, Instance.List,
......
786 786
      goodSols = filterMGResults mggl sols
787 787
      sortedSols = sortMGResults mggl goodSols
788 788
  in if null sortedSols
789
       then Bad $ intercalate ", " all_msgs
789
       then if null groups'
790
              then Bad $ "no groups for evacuation: allowed groups was" ++
791
                     show allowed_gdxs ++ ", all groups: " ++
792
                     show (map fst groups)
793
              else Bad $ intercalate ", " all_msgs
790 794
       else let (final_group, final_sol) = head sortedSols
791 795
            in return (final_group, final_sol, all_msgs)
792 796

  

Also available in: Unified diff