Synnefo » snf-ganeti

  , tryReloc

-- | Try to relocate an instance on the cluster.

tryReloc :: (Monad m) =>

            Node.List       -- ^ The node list

         -> Instance.List   -- ^ The instance list

         -> Idx             -- ^ The index of the instance to move

         -> Int             -- ^ The number of nodes required

         -> [Ndx]           -- ^ Nodes which should not be used

         -> m AllocSolution -- ^ Solution list

tryReloc nl il xid 1 ex_idx =

  let all_nodes = getOnline nl

      inst = Container.find xid il

      ex_idx' = Instance.pNode inst:ex_idx

      valid_nodes = filter (not . flip elem ex_idx' . Node.idx) all_nodes

      valid_idxes = map Node.idx valid_nodes

      sols1 = foldl' (\cstate x ->

                        let em = do

                              (mnl, i, _, _) <-

                                applyMove nl inst (ReplaceSecondary x)

                              return (mnl, i, [Container.find x mnl],

                                         compCV mnl)

                        in concatAllocs cstate em

                     ) emptyAllocSolution valid_idxes

  in return sols1

tryReloc _ _ _ reqn _  = fail $ "Unsupported number of relocation \

                                \destinations required (" ++ show reqn ++

                                                  "), only one supported"