Revision e7724ccc Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
126 126
              ex_nodes <- fromObj "relocate_from" request
127 127
              let ex_nodes' = map (stripSuffix $ length csf) ex_nodes
128 128
              ex_idex <- mapM (Container.findByName map_n) ex_nodes'
129
              return $ Relocate ridx req_nodes ex_idex
129
              return $ Relocate ridx req_nodes (map Node.idx ex_idex)
130 130
        other -> fail ("Invalid request type '" ++ other ++ "'")
131 131
  return $ Request rqtype map_n map_i csf
132 132

  

Also available in: Unified diff