Synnefo » snf-ganeti

           | Rebalanced

-- | Level of presented statistics.

-- | A type alias for a group index and node\/instance lists.

type GroupInfo = (Gdx, (Node.List, Instance.List))

-- | Level-specific prefix for machine readable version.

levelPrefix :: Level -> String

-- | Machine-readable keys to show depending on given level.

keysData :: Level -> [String]

-- | Description of phases for human readable version.

phaseDescr :: Phase -> String

-- | Description to show depending on given level.

descrData :: Level -> [String]

-- | Human readable prefix for statistics.

    printf "Statistics for group %s %s\n" name $ phaseDescr phase

    printf "Cluster statistics %s\n" $ phaseDescr phase

-- | Format a list of key, value as a shell fragment.

    printKeysHTC printpairs

-- | Prepare a single key given a certain level and phase of simulation.

  printf "%s_%s_%s" (phasePrefix phase) (levelPrefix level) suffix

  printf "%s_%s_%s_%s" (phasePrefix phase) (levelPrefix level) idx suffix

-- | Print all the statistics for given level and phase.

           -> Level          -- ^ Level on which we are printing

           -> Phase          -- ^ Current phase of simulation

           -> [String]       -- ^ Values to print

           -> IO ()

  printKeysHTC $ zip keys values

      descr = descrData level

  unless (verbose == 0) $ do

    putStrLn ""

printGroupStats verbose machineread phase ((grp, score), stats) = do

  let values = prepareGroupValues stats score

      extradata = extractGroupData machineread grp

-- | Print all the statistics on a cluster (global) level.

printClusterStats :: Int -> Bool -> Phase -> [Int] -> Bool -> IO ()

printClusterStats verbose machineread phase stats needhbal = do

  let values = prepareClusterValues machineread stats [needhbal]

-- | Check if any of cluster metrics is non-zero.

clusterNeedsRebalance :: [Int] -> Bool