Revision d953a965 htools/Ganeti/HTools/Types.hs
| b/htools/Ganeti/HTools/Types.hs | ||
|---|---|---|
| 192 | 192 |
|
| 193 | 193 |
-- | Instance specification type. |
| 194 | 194 |
$(THH.buildObject "ISpec" "iSpec" |
| 195 |
[ THH.renameField "MemorySize" $ THH.simpleField C.ispecMemSize [t| Int |] |
|
| 196 |
, THH.renameField "CpuCount" $ THH.simpleField C.ispecCpuCount [t| Int |] |
|
| 197 |
, THH.renameField "DiskSize" $ THH.simpleField C.ispecDiskSize [t| Int |] |
|
| 198 |
, THH.renameField "DiskCount" $ THH.simpleField C.ispecDiskCount [t| Int |] |
|
| 199 |
, THH.renameField "NicCount" $ THH.simpleField C.ispecNicCount [t| Int |] |
|
| 195 |
[ THH.renameField "MemorySize" $ THH.simpleField C.ispecMemSize [t| Int |] |
|
| 196 |
, THH.renameField "CpuCount" $ THH.simpleField C.ispecCpuCount [t| Int |] |
|
| 197 |
, THH.renameField "DiskSize" $ THH.simpleField C.ispecDiskSize [t| Int |] |
|
| 198 |
, THH.renameField "DiskCount" $ THH.simpleField C.ispecDiskCount [t| Int |] |
|
| 199 |
, THH.renameField "NicCount" $ THH.simpleField C.ispecNicCount [t| Int |] |
|
| 200 |
, THH.renameField "SpindleUse" $ THH.simpleField C.ispecSpindleUse [t| Int |] |
|
| 200 | 201 |
]) |
| 201 | 202 |
|
| 202 | 203 |
-- | The default minimum ispec. |
| ... | ... | |
| 206 | 207 |
, iSpecDiskSize = C.ipolicyDefaultsMinDiskSize |
| 207 | 208 |
, iSpecDiskCount = C.ipolicyDefaultsMinDiskCount |
| 208 | 209 |
, iSpecNicCount = C.ipolicyDefaultsMinNicCount |
| 210 |
, iSpecSpindleUse = C.ipolicyDefaultsMinSpindleUse |
|
| 209 | 211 |
} |
| 210 | 212 |
|
| 211 | 213 |
-- | The default standard ispec. |
| ... | ... | |
| 215 | 217 |
, iSpecDiskSize = C.ipolicyDefaultsStdDiskSize |
| 216 | 218 |
, iSpecDiskCount = C.ipolicyDefaultsStdDiskCount |
| 217 | 219 |
, iSpecNicCount = C.ipolicyDefaultsStdNicCount |
| 220 |
, iSpecSpindleUse = C.ipolicyDefaultsStdSpindleUse |
|
| 218 | 221 |
} |
| 219 | 222 |
|
| 220 | 223 |
-- | The default max ispec. |
| ... | ... | |
| 224 | 227 |
, iSpecDiskSize = C.ipolicyDefaultsMaxDiskSize |
| 225 | 228 |
, iSpecDiskCount = C.ipolicyDefaultsMaxDiskCount |
| 226 | 229 |
, iSpecNicCount = C.ipolicyDefaultsMaxNicCount |
| 230 |
, iSpecSpindleUse = C.ipolicyDefaultsMaxSpindleUse |
|
| 227 | 231 |
} |
| 228 | 232 |
|
| 229 | 233 |
-- | Instance policy type. |
Also available in: Unified diff