Revision 41044e04 src/Ganeti/Objects.hs
b/src/Ganeti/Objects.hs | ||
---|---|---|
512 | 512 |
-- has a special 2-level inheritance mode. |
513 | 513 |
$(buildObject "PartialIPolicy" "ipolicy" |
514 | 514 |
[ optionalField . renameField "MinMaxISpecsP" |
515 |
$ simpleField C.ispecsMinmax [t| MinMaxISpecs |]
|
|
515 |
$ simpleField C.ispecsMinmax [t| [MinMaxISpecs] |]
|
|
516 | 516 |
, optionalField . renameField "StdSpecP" |
517 | 517 |
$ simpleField "std" [t| PartialISpecParams |] |
518 | 518 |
, optionalField . renameField "SpindleRatioP" |
... | ... | |
527 | 527 |
-- has a special 2-level inheritance mode. |
528 | 528 |
$(buildObject "FilledIPolicy" "ipolicy" |
529 | 529 |
[ renameField "MinMaxISpecs" |
530 |
$ simpleField C.ispecsMinmax [t| MinMaxISpecs |]
|
|
530 |
$ simpleField C.ispecsMinmax [t| [MinMaxISpecs] |]
|
|
531 | 531 |
, renameField "StdSpec" $ simpleField "std" [t| FilledISpecParams |] |
532 | 532 |
, simpleField "spindle-ratio" [t| Double |] |
533 | 533 |
, simpleField "vcpu-ratio" [t| Double |] |
Also available in: Unified diff