Revision d25643d1 htools/Ganeti/HTools/Instance.hs
b/htools/Ganeti/HTools/Instance.hs | ||
---|---|---|
65 | 65 |
, movable :: Bool -- ^ Can the instance be moved? |
66 | 66 |
, autoBalance :: Bool -- ^ Is the instance auto-balanced? |
67 | 67 |
, tags :: [String] -- ^ List of instance tags |
68 |
, diskTemplate :: T.DiskTemplate -- ^ The disk template of the instance |
|
68 | 69 |
} deriving (Show, Read) |
69 | 70 |
|
70 | 71 |
instance T.Element Instance where |
... | ... | |
91 | 92 |
-- Some parameters are not initialized by function, and must be set |
92 | 93 |
-- later (via 'setIdx' for example). |
93 | 94 |
create :: String -> Int -> Int -> Int -> String |
94 |
-> [String] -> Bool -> T.Ndx -> T.Ndx -> Instance |
|
95 |
-> [String] -> Bool -> T.Ndx -> T.Ndx -> T.DiskTemplate -> Instance
|
|
95 | 96 |
create name_init mem_init dsk_init vcpus_init run_init tags_init |
96 |
auto_balance_init pn sn = |
|
97 |
auto_balance_init pn sn dt =
|
|
97 | 98 |
Instance { name = name_init |
98 | 99 |
, alias = name_init |
99 | 100 |
, mem = mem_init |
... | ... | |
108 | 109 |
, tags = tags_init |
109 | 110 |
, movable = True |
110 | 111 |
, autoBalance = auto_balance_init |
112 |
, diskTemplate = dt |
|
111 | 113 |
} |
112 | 114 |
|
113 | 115 |
-- | Changes the index. |
Also available in: Unified diff