Synnefo » snf-ganeti » ganeti-local

       return $ opts { optSpindleUse = Just su })

    "SPINDLES") "select how many virtual spindle instances use\

                \ [default read from cluster]",

oSelInst :: OptType

oSelInst =

       return $ opts { optMcpu = Just mcpu }) "RATIO")

   "maximum virtual-to-physical cpu ratio for nodes (from 0\

   \ upwards) [default read from cluster]",

oMaxSolLength :: OptType

oMaxSolLength =

   "cap the solution at this many balancing or allocation \

   \ rounds (useful for very unbalanced clusters or empty \

   \ clusters)",

oMinDisk :: OptType

oMinDisk =

   (reqWithConversion (tryRead "min free disk space")

    (\n opts -> Ok opts { optMdsk = n }) "RATIO")

   "minimum free disk space for nodes (between 0 and 1) [0]",

oMinGain :: OptType

oMinGain =

   (reqWithConversion (tryRead "min gain")

    (\g opts -> Ok opts { optMinGain = g }) "DELTA")

   "minimum gain to aim for in a balancing step before giving up",

oMinGainLim :: OptType

oMinGainLim =

   (reqWithConversion (tryRead "min gain limit")

    (\g opts -> Ok opts { optMinGainLim = g }) "SCORE")

   "minimum cluster score for which we start checking the min-gain",

oMinScore :: OptType

oMinScore =

   (reqWithConversion (tryRead "min score")

    (\e opts -> Ok opts { optMinScore = e }) "EPSILON")

   "mininum score to aim for",

oNoHeaders :: OptType

oNoHeaders =