, setMovable
, specOf
, shrinkByType
+ , runningStates
) where
import qualified Ganeti.HTools.Types as T
unitCpu :: Int
unitCpu = 1
+-- | Running instance states.
+runningStates :: [String]
+runningStates = ["running", "ERROR_up"]
+
-- | A simple name for the int, instance association list.
type AssocList = [(T.Idx, Instance)]
, mem = mem_init
, dsk = dsk_init
, vcpus = vcpus_init
- , running = run_init == "running" || run_init == "ERROR_up"
+ , running = run_init `elem` runningStates
, runSt = run_init
, pNode = pn
, sNode = sn