Revision 83ad1f3c Ganeti/HTools/Instance.hs
b/Ganeti/HTools/Instance.hs | ||
---|---|---|
36 | 36 |
, setPri |
37 | 37 |
, setSec |
38 | 38 |
, setBoth |
39 |
, specOf |
|
39 | 40 |
, shrinkByType |
40 | 41 |
) where |
41 | 42 |
|
... | ... | |
152 | 153 |
then T.Bad "out of vcpus" |
153 | 154 |
else T.Ok inst { vcpus = v } |
154 | 155 |
shrinkByType _ f = T.Bad $ "Unhandled failure mode " ++ show f |
156 |
|
|
157 |
-- | Return the spec of an instance. |
|
158 |
specOf :: Instance -> T.RSpec |
|
159 |
specOf Instance { mem = m, dsk = d, vcpus = c } = |
|
160 |
T.RSpec { T.rspecCpu = c, T.rspecMem = m, T.rspecDsk = d } |
Also available in: Unified diff