Revision d752eb39 Ganeti/HTools/Instance.hs
b/Ganeti/HTools/Instance.hs | ||
---|---|---|
37 | 37 |
data Instance = Instance { name :: String -- ^ The instance name |
38 | 38 |
, mem :: Int -- ^ Memory of the instance |
39 | 39 |
, dsk :: Int -- ^ Disk size of instance |
40 |
, vcpus :: Int -- ^ Number of VCPUs |
|
40 | 41 |
, running :: Bool -- ^ Whether the instance |
41 | 42 |
-- is running |
42 | 43 |
, run_st :: String -- ^ Original (text) run status |
... | ... | |
64 | 65 |
-- |
65 | 66 |
-- Some parameters are not initialized by function, and must be set |
66 | 67 |
-- later (via 'setIdx' for example). |
67 |
create :: String -> Int -> Int -> String -> T.Ndx -> T.Ndx -> Instance |
|
68 |
create name_init mem_init dsk_init run_init pn sn = |
|
68 |
create :: String -> Int -> Int -> Int -> String -> T.Ndx -> T.Ndx -> Instance
|
|
69 |
create name_init mem_init dsk_init vcpus_init run_init pn sn =
|
|
69 | 70 |
Instance { |
70 | 71 |
name = name_init, |
71 | 72 |
mem = mem_init, |
72 | 73 |
dsk = dsk_init, |
74 |
vcpus = vcpus_init, |
|
73 | 75 |
running = case run_init of |
74 | 76 |
"running" -> True |
75 | 77 |
"ERROR_up" -> True |
Also available in: Unified diff