Synnefo » snf-ganeti » ganeti-local

  , autoBalance  :: Bool      -- ^ Is the instance auto-balanced?

  , tags         :: [String]  -- ^ List of instance tags

  , diskTemplate :: T.DiskTemplate -- ^ The disk template of the instance

  } deriving (Show, Read, Eq)

instance T.Element Instance where

-- Some parameters are not initialized by function, and must be set

-- later (via 'setIdx' for example).

create :: String -> Int -> Int -> Int -> T.InstanceStatus

create name_init mem_init dsk_init vcpus_init run_init tags_init

  Instance { name = name_init

           , alias = name_init

           , mem = mem_init

           , movable = supportsMoves dt

           , autoBalance = auto_balance_init

           , diskTemplate = dt

           }

-- | Changes the index.