Synnefo » snf-ganeti » ganeti-local

    , movable      :: Bool      -- ^ Can the instance be moved?

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

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

    } deriving (Show, Read)

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 -> String

create name_init mem_init dsk_init vcpus_init run_init tags_init

    Instance { name = name_init

             , alias = name_init

             , mem = mem_init

             , tags = tags_init

             , movable = True

             , autoBalance = auto_balance_init

             }

-- | Changes the index.