Revision 41044e04 src/Ganeti/HTools/Types.hs
| b/src/Ganeti/HTools/Types.hs | ||
|---|---|---|
| 169 | 169 |
|
| 170 | 170 |
-- | The default minimum ispec. |
| 171 | 171 |
defMinISpec :: ISpec |
| 172 |
defMinISpec = ISpec { iSpecMemorySize = C.ipolicyDefaultsMinmaxMinMemorySize
|
|
| 173 |
, iSpecCpuCount = C.ipolicyDefaultsMinmaxMinCpuCount
|
|
| 174 |
, iSpecDiskSize = C.ipolicyDefaultsMinmaxMinDiskSize
|
|
| 175 |
, iSpecDiskCount = C.ipolicyDefaultsMinmaxMinDiskCount
|
|
| 176 |
, iSpecNicCount = C.ipolicyDefaultsMinmaxMinNicCount
|
|
| 177 |
, iSpecSpindleUse = C.ipolicyDefaultsMinmaxMinSpindleUse
|
|
| 172 |
defMinISpec = ISpec { iSpecMemorySize = C.ispecsMinmaxDefaultsMinMemorySize
|
|
| 173 |
, iSpecCpuCount = C.ispecsMinmaxDefaultsMinCpuCount
|
|
| 174 |
, iSpecDiskSize = C.ispecsMinmaxDefaultsMinDiskSize
|
|
| 175 |
, iSpecDiskCount = C.ispecsMinmaxDefaultsMinDiskCount
|
|
| 176 |
, iSpecNicCount = C.ispecsMinmaxDefaultsMinNicCount
|
|
| 177 |
, iSpecSpindleUse = C.ispecsMinmaxDefaultsMinSpindleUse
|
|
| 178 | 178 |
} |
| 179 | 179 |
|
| 180 | 180 |
-- | The default standard ispec. |
| ... | ... | |
| 189 | 189 |
|
| 190 | 190 |
-- | The default max ispec. |
| 191 | 191 |
defMaxISpec :: ISpec |
| 192 |
defMaxISpec = ISpec { iSpecMemorySize = C.ipolicyDefaultsMinmaxMaxMemorySize
|
|
| 193 |
, iSpecCpuCount = C.ipolicyDefaultsMinmaxMaxCpuCount
|
|
| 194 |
, iSpecDiskSize = C.ipolicyDefaultsMinmaxMaxDiskSize
|
|
| 195 |
, iSpecDiskCount = C.ipolicyDefaultsMinmaxMaxDiskCount
|
|
| 196 |
, iSpecNicCount = C.ipolicyDefaultsMinmaxMaxNicCount
|
|
| 197 |
, iSpecSpindleUse = C.ipolicyDefaultsMinmaxMaxSpindleUse
|
|
| 192 |
defMaxISpec = ISpec { iSpecMemorySize = C.ispecsMinmaxDefaultsMaxMemorySize
|
|
| 193 |
, iSpecCpuCount = C.ispecsMinmaxDefaultsMaxCpuCount
|
|
| 194 |
, iSpecDiskSize = C.ispecsMinmaxDefaultsMaxDiskSize
|
|
| 195 |
, iSpecDiskCount = C.ispecsMinmaxDefaultsMaxDiskCount
|
|
| 196 |
, iSpecNicCount = C.ispecsMinmaxDefaultsMaxNicCount
|
|
| 197 |
, iSpecSpindleUse = C.ispecsMinmaxDefaultsMaxSpindleUse
|
|
| 198 | 198 |
} |
| 199 | 199 |
|
| 200 | 200 |
-- | Minimum and maximum instance specs type. |
| ... | ... | |
| 204 | 204 |
]) |
| 205 | 205 |
|
| 206 | 206 |
-- | Defult minimum and maximum instance specs. |
| 207 |
defMinMaxISpecs :: MinMaxISpecs
|
|
| 208 |
defMinMaxISpecs = MinMaxISpecs { minMaxISpecsMinSpec = defMinISpec
|
|
| 209 |
, minMaxISpecsMaxSpec = defMaxISpec |
|
| 210 |
}
|
|
| 207 |
defMinMaxISpecs :: [MinMaxISpecs]
|
|
| 208 |
defMinMaxISpecs = [MinMaxISpecs { minMaxISpecsMinSpec = defMinISpec
|
|
| 209 |
, minMaxISpecsMaxSpec = defMaxISpec
|
|
| 210 |
}]
|
|
| 211 | 211 |
|
| 212 | 212 |
-- | Instance policy type. |
| 213 | 213 |
$(THH.buildObject "IPolicy" "iPolicy" |
| 214 | 214 |
[ THH.renameField "MinMaxISpecs" $ |
| 215 |
THH.simpleField C.ispecsMinmax [t| MinMaxISpecs |]
|
|
| 215 |
THH.simpleField C.ispecsMinmax [t| [MinMaxISpecs] |]
|
|
| 216 | 216 |
, THH.renameField "StdSpec" $ THH.simpleField C.ispecsStd [t| ISpec |] |
| 217 | 217 |
, THH.renameField "DiskTemplates" $ |
| 218 | 218 |
THH.simpleField C.ipolicyDts [t| [DiskTemplate] |] |
Also available in: Unified diff