Synnefo » snf-ganeti » ganeti-local

import Ganeti.BasicTypes

import qualified Ganeti.HTools.Types as T

import qualified Ganeti.HTools.Container as Container

import Ganeti.Utils

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

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

  , arPolicy     :: T.AutoRepairPolicy -- ^ Instance's auto-repair policy

  } deriving (Show, Eq)

instance T.Element Instance where

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

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

       -> [String] -> Bool -> T.Ndx -> T.Ndx -> T.DiskTemplate -> Int

create name_init mem_init dsk_init disks_init vcpus_init run_init tags_init

  Instance { name = name_init

           , alias = name_init

           , mem = mem_init

           , allTags = tags_init

           , exclTags = []

           , arPolicy = T.ArNotEnabled

           }

-- | Changes the index.