Synnefo » snf-ganeti » ganeti-local

    , oMinGain

    , oMinGainLim

    , oDiskMoves

    , oDynuFile

    , oExTags

    , oExInst

iterateDepth :: Cluster.Table    -- ^ The starting table

             -> Int              -- ^ Remaining length

             -> Bool             -- ^ Allow disk moves

             -> Int              -- ^ Max node name len

             -> Int              -- ^ Max instance name len

             -> [MoveJob]        -- ^ Current command list

             -> Bool             -- ^ Enable evacuation mode

             -> IO (Cluster.Table, [MoveJob]) -- ^ The resulting table

                                              -- and commands

             cmd_strs oneline min_score mg_limit min_gain evac_mode =

    let Cluster.Table ini_nl ini_il _ _ = ini_tbl

        allowed_next = Cluster.doNextBalance ini_tbl max_rounds min_score

              unless oneline $ do

                       putStrLn sol_line

                       hFlush stdout

                           nmlen imlen upd_cmd_strs oneline min_score

                           mg_limit min_gain evac_mode

        Nothing -> return (ini_tbl, cmd_strs)

  (fin_tbl, cmd_strs) <- iterateDepth ini_tbl (optMaxLength opts)

                         (optDiskMoves opts)

                         nmlen imlen [] oneline min_cv

                         (optMinGainLim opts) (optMinGain opts)

                         (optEvacMode opts)