Revision 179c0828 htools/Ganeti/HTools/Instance.hs
b/htools/Ganeti/HTools/Instance.hs | ||
---|---|---|
159 | 159 |
-> Instance -- ^ the modified instance |
160 | 160 |
setBoth t p s = t { pNode = p, sNode = s } |
161 | 161 |
|
162 |
-- | Sets the movable flag on an instance. |
|
162 | 163 |
setMovable :: Instance -- ^ The original instance |
163 | 164 |
-> Bool -- ^ New movable flag |
164 | 165 |
-> Instance -- ^ The modified instance |
... | ... | |
186 | 187 |
specOf Instance { mem = m, dsk = d, vcpus = c } = |
187 | 188 |
T.RSpec { T.rspecCpu = c, T.rspecMem = m, T.rspecDsk = d } |
188 | 189 |
|
189 |
-- | Computed the number of nodes for a given disk template |
|
190 |
-- | Computed the number of nodes for a given disk template.
|
|
190 | 191 |
requiredNodes :: T.DiskTemplate -> Int |
191 | 192 |
requiredNodes T.DTDrbd8 = 2 |
192 | 193 |
requiredNodes _ = 1 |
Also available in: Unified diff