Synnefo » snf-ganeti » ganeti-local

module Ganeti.HTools.Instance

  ( Instance(..)

  , AssocList

  , List

  , create

  , setBoth

  , setMovable

  , specOf

  , instBelowISpec

  , instAboveISpec

  , instMatchesPolicy

import Ganeti.Utils

-- * Type declarations

-- | The instance type.

data Instance = Instance

  , alias        :: String    -- ^ The shortened name

  , mem          :: Int       -- ^ Memory of the instance

  , dsk          :: Int       -- ^ Total disk usage of the instance

  , vcpus        :: Int       -- ^ Number of VCPUs

  , runSt        :: T.InstanceStatus -- ^ Original run status

  , pNode        :: T.Ndx     -- ^ Original primary node

--

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

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

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

       -> [Nic] -> Instance

create name_init mem_init dsk_init disks_init vcpus_init run_init tags_init

                                 else Ok inst { vcpus = v }

shrinkByType _ f = Bad $ "Unhandled failure mode " ++ show f

-- | Return the spec of an instance.

specOf :: Instance -> T.RSpec

specOf Instance { mem = m, dsk = d, vcpus = c } =

instBelowISpec :: Instance -> T.ISpec -> T.OpResult ()

instBelowISpec inst ispec

  | mem inst > T.iSpecMemorySize ispec = Bad T.FailMem

  | vcpus inst > T.iSpecCpuCount ispec = Bad T.FailCPU

  | otherwise = Ok ()

instAboveISpec :: Instance -> T.ISpec -> T.OpResult ()

instAboveISpec inst ispec

  | mem inst < T.iSpecMemorySize ispec = Bad T.FailMem

  | vcpus inst < T.iSpecCpuCount ispec = Bad T.FailCPU

  | otherwise = Ok ()