Synnefo » snf-ganeti » ganeti-local

    , oMinScore

    , oMaxCpu

    , oMinDisk

    , oDiskMoves

    , oDynuFile

    , oExTags

             -> [MoveJob]        -- ^ Current command list

             -> Bool             -- ^ Whether to be silent

             -> Score            -- ^ Score at which to stop

             -> Bool             -- ^ Enable evacuation mode

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

                                              -- and commands

iterateDepth ini_tbl max_rounds disk_moves nmlen imlen

    let Cluster.Table ini_nl ini_il _ _ = ini_tbl

        allowed_next = Cluster.doNextBalance ini_tbl max_rounds min_score

        m_fin_tbl = if allowed_next

                    then Cluster.tryBalance ini_tbl disk_moves evac_mode

                    else Nothing

    in

      case m_fin_tbl of

                       hFlush stdout

              iterateDepth fin_tbl max_rounds disk_moves

                           nmlen imlen upd_cmd_strs oneline min_score

        Nothing -> return (ini_tbl, cmd_strs)

-- | Formats the solution for the oneline display

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

                         (optDiskMoves opts)

  let (Cluster.Table fin_nl fin_il fin_cv fin_plc) = fin_tbl

      ord_plc = reverse fin_plc

      sol_msg = if null fin_plc