Revision 0ca66853

b/Ganeti/HTools/Cluster.hs
622 622 
                             csol@(_, (nl'', _, _)):_ ->
623 623 
                                 return (nl'', (fm, cs, csol:rsols))
624 624 
                             _ -> fail $ "Can't evacuate instance " ++
625 
                                  show idx
625 
                                  Instance.name (Container.find idx il)
626 626 
                        ) (nl, ([], 0, [])) all_insts
627 627 
      return sol
628 628 

  		












Also available in:
  Unified diff