Revision 934c62dc Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
134 134 
        "multi-evacuate" ->
135 135 
            do
136 136 
              ex_names <- fromObj "evac_nodes" request
137 
              ex_nodes <- mapM (Container.findByName map_n) ex_names
137 
              let ex_names' = map (stripSuffix $ length csf) ex_names
138 
              ex_nodes <- mapM (Container.findByName map_n) ex_names'
138 139 
              let ex_ndx = map Node.idx ex_nodes
139 140 
              return $ Evacuate ex_ndx
140 141 
        other -> fail ("Invalid request type '" ++ other ++ "'")

Also available in: Unified diff