Revision 304f9292
b/htools/Ganeti/HTools/Types.hs | ||
---|---|---|
75 | 75 |
, ISpec(..) |
76 | 76 |
, IPolicy(..) |
77 | 77 |
, defIPolicy |
78 |
, rspecFromISpec |
|
78 | 79 |
) where |
79 | 80 |
|
80 | 81 |
import qualified Data.Map as M |
... | ... | |
187 | 188 |
, THH.renameField "MaxSpec" $ THH.simpleField "max" [t| ISpec |] |
188 | 189 |
]) |
189 | 190 |
|
191 |
-- | Converts an ISpec type to a RSpec one. |
|
192 |
rspecFromISpec :: ISpec -> RSpec |
|
193 |
rspecFromISpec ispec = RSpec { rspecCpu = iSpecCpuCount ispec |
|
194 |
, rspecMem = iSpecMemorySize ispec |
|
195 |
, rspecDsk = iSpecDiskSize ispec |
|
196 |
} |
|
197 |
|
|
190 | 198 |
-- | The default instance policy. |
191 | 199 |
defIPolicy :: IPolicy |
192 | 200 |
defIPolicy = IPolicy { iPolicyStdSpec = defStdISpec |
Also available in: Unified diff