Synnefo » snf-ganeti » ganeti-local

type Score = Double

-- | The description of an instance placement.

{- | A cluster solution described as the solution delta and the list

of placements.

-- | An instance move definition

data IMove = Failover                -- ^ Failover the instance (f)

             deriving (Show)

-- | The complete state for the balancing solution

-- Second phase functions

-- | Single-node relocation cost

nodeDelta i p s =

    if i == p || i == s then

        0

-- | Apply a move

applyMove :: Node.List -> Instance.Instance

-- Failover (f)

applyMove nl inst Failover =

    let old_pdx = Instance.pnode inst

-- | Given the status of the current secondary as a valid new node

-- and the current candidate target node,

-- generate the possible moves for a instance.

possibleMoves True tdx =

    [ReplaceSecondary tdx,

     ReplaceAndFailover tdx,

     ReplaceAndFailover tdx]

-- | Compute the best move for a given instance.

                  -> Table             -- Original table

                  -> Instance.Instance -- Instance to move

                  -> Table             -- Best new table for this instance

      foldl' (checkSingleStep ini_tbl target) aft_failover all_moves

-- | Compute the best next move.

          -> Table               -- ^ The current solution

          -> [Instance.Instance] -- ^ List of instances still to move

          -> Table               -- ^ The new solution