Revision da1dcce1 htools/Ganeti/Objects.hs
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 501 | 501 |
-- | The disk parameters type. |
| 502 | 502 |
type DiskParams = Container (Container JSValue) |
| 503 | 503 |
|
| 504 |
-- | A mapping from network UUIDs to nic params of the networks. |
|
| 505 |
type Networks = Container PartialNic |
|
| 506 |
|
|
| 504 | 507 |
$(buildObject "NodeGroup" "group" $ |
| 505 | 508 |
[ simpleField "name" [t| String |] |
| 506 | 509 |
, defaultField [| [] |] $ simpleField "members" [t| [String] |] |
| ... | ... | |
| 508 | 511 |
, simpleField "alloc_policy" [t| AllocPolicy |] |
| 509 | 512 |
, simpleField "ipolicy" [t| PartialIPolicy |] |
| 510 | 513 |
, simpleField "diskparams" [t| DiskParams |] |
| 511 |
, defaultField [| [] |] $ simpleField "networks" [t| [Network] |]
|
|
| 514 |
, simpleField "networks" [t| Networks |]
|
|
| 512 | 515 |
] |
| 513 | 516 |
++ timeStampFields |
| 514 | 517 |
++ uuidFields |
Also available in: Unified diff