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