Synnefo » snf-ganeti

  , pTags    :: TagMap    -- ^ Primary instance exclusion tags and their count

  , group    :: T.Gdx     -- ^ The node's group (index)

  , iPolicy  :: T.IPolicy -- ^ The instance policy (of the node's group)

  } deriving (Show, Eq)

instance T.Element Node where

-- The index and the peers maps are empty, and will be need to be

-- update later via the 'setIdx' and 'buildPeers' functions.

create :: String -> Double -> Int -> Int -> Double

create name_init mem_t_init mem_n_init mem_f_init

       dsk_t_init dsk_f_init cpu_t_init offline_init spindles_init

  Node { name = name_init

       , alias = name_init

       , tMem = mem_t_init

       , pTags = Map.empty

       , group = group_init

       , iPolicy = T.defIPolicy

       }

-- | Conversion formula from mDsk\/tDsk to loDsk.