Synnefo » snf-ganeti

    , utilPool :: T.DynUtil -- ^ Total utilisation capacity

    , utilLoad :: T.DynUtil -- ^ Sum of instance utilisation

    , pTags    :: TagMap    -- ^ Map of primary instance tags and their count

    } deriving (Show, Eq)

instance T.Element Node where

      offl <- arbitrary

      let n = Node.create name (fromIntegral mem_t) mem_n mem_f

              (fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl

          n' = Node.buildPeers n Container.empty

      return n'

                    let n = Node.create (printf "node%03d" idx)

                            (fromIntegral mem) 0 mem

                            (fromIntegral disk) disk

                    in (idx, Node.setIdx n idx)

                  ) [1..cnt]

  return (nodes, [], [])

loadNode :: (Monad m) => [String] -> m (String, Node.Node)

-- compatibility wrapper for old text files

loadNode [name, tm, nm, fm, td, fd, tc, fo] =

loadNode [name, tm, nm, fm, td, fd, tc, fo, gu] = do

  new_node <-

      if any (== "?") [tm,nm,fm,td,fd,tc] || fo == "Y" then

    , NameAssoc

    , Score

    , Weight

    , RSpec(..)

    , DynUtil(..)

    , zeroUtil

-- | A separate name for a weight metric.

type Weight = Double

-- | The resource spec type.

data RSpec = RSpec

    { rspecCpu  :: Int  -- ^ Requested VCPUs

    , tryRead

    , formatTable

    , annotateResult

    ) where

import Control.Monad (liftM)

                    ) (zip3 vtrans numpos mlens)

   in transpose expnd