Synnefo » snf-ganeti

type AllocNodes = Either [Ndx] [(Ndx, Ndx)]

-- | The empty solution we start with when computing allocations.

-- | The complete state for the balancing solution.

data Table = Table Node.List Instance.List Score [Placement]

tryAlloc nl _ inst (Right ok_pairs) =

    let sols = foldl' (\cstate (p, s) ->

                           concatAllocs cstate $ allocateOnPair nl inst p s

    in if null ok_pairs -- means we have just one node

       then fail "Not enough online nodes"

tryAlloc nl _ inst (Left all_nodes) =

    let sols = foldl' (\cstate ->

                           concatAllocs cstate . allocateOnSingle nl inst

    in if null all_nodes

       then fail "No online nodes"

       else return $ annotateSolution sols

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

                                          compCV mnl)

                            in concatAllocs cstate em

    in return sols1

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

         -> [Ndx]           -- ^ Restricted nodes (the ones being evacuated)

         -> m AllocSolution -- ^ Solution list

tryEvac nl il idxs ex_ndx = do

  return sol

-- | Multi-group evacuation of a list of nodes.

    in do

      results <- mapM (\(_, (gnl, gil, idxs)) -> tryEvac gnl gil idxs ex_ndx)

                 all_insts'

      return $ annotateSolution sol

-- | Recursively place instances on the cluster until we're out of space.