Revision 8a8ed513 htools/Ganeti/HTools/Instance.hs
b/htools/Ganeti/HTools/Instance.hs | ||
---|---|---|
31 | 31 |
, AssocList |
32 | 32 |
, List |
33 | 33 |
, create |
34 |
, instanceRunning |
|
34 | 35 |
, setIdx |
35 | 36 |
, setName |
36 | 37 |
, setAlias |
... | ... | |
40 | 41 |
, setMovable |
41 | 42 |
, specOf |
42 | 43 |
, shrinkByType |
43 |
, runningStates |
|
44 | 44 |
, localStorageTemplates |
45 | 45 |
, hasSecondary |
46 | 46 |
, requiredNodes |
... | ... | |
61 | 61 |
, mem :: Int -- ^ Memory of the instance |
62 | 62 |
, dsk :: Int -- ^ Disk size of instance |
63 | 63 |
, vcpus :: Int -- ^ Number of VCPUs |
64 |
, running :: Bool -- ^ Is the instance running? |
|
65 | 64 |
, runSt :: T.InstanceStatus -- ^ Original run status |
66 | 65 |
, pNode :: T.Ndx -- ^ Original primary node |
67 | 66 |
, sNode :: T.Ndx -- ^ Original secondary node |
... | ... | |
80 | 79 |
setIdx = setIdx |
81 | 80 |
allNames n = [name n, alias n] |
82 | 81 |
|
83 |
-- | Constant holding the running instance states. |
|
84 |
runningStates :: [T.InstanceStatus] |
|
85 |
runningStates = [T.Running, T.ErrorUp] |
|
82 |
-- | Check if instance is running. |
|
83 |
instanceRunning :: Instance -> Bool |
|
84 |
instanceRunning (Instance {runSt = T.Running}) = True |
|
85 |
instanceRunning (Instance {runSt = T.ErrorUp}) = True |
|
86 |
instanceRunning _ = False |
|
86 | 87 |
|
87 | 88 |
-- | Constant holding the local storage templates. |
88 | 89 |
-- |
... | ... | |
124 | 125 |
, mem = mem_init |
125 | 126 |
, dsk = dsk_init |
126 | 127 |
, vcpus = vcpus_init |
127 |
, running = run_init `elem` runningStates |
|
128 | 128 |
, runSt = run_init |
129 | 129 |
, pNode = pn |
130 | 130 |
, sNode = sn |
Also available in: Unified diff