Revision 20b376ff htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
262 262 
           Cluster.tryMGReloc gl nl il idx reqn exnodes >>= formatAllocate
263 263 
       Evacuate exnodes ->
264 264 
           Cluster.tryMGEvac gl nl il exnodes >>= formatEvacuate
265 
       ChangeGroup _ _ -> fail "Request 'change-group' not implemented"
265 
       ChangeGroup gdxs idxs ->
266 
           Cluster.tryChangeGroup gl nl il idxs gdxs >>= formatNodeEvac
266 267 
       NodeEvacuate xi mode ->
267 268 
           Cluster.tryNodeEvac gl nl il mode xi >>= formatNodeEvac
268 269 

  		












Also available in:
  Unified diff