Revision 0f0d7aba
| b/htest/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 131 | 131 |
instance Arbitrary NodeGroup where |
| 132 | 132 |
arbitrary = NodeGroup <$> genFQDN <*> pure [] <*> arbitrary <*> arbitrary |
| 133 | 133 |
<*> arbitrary <*> pure (GenericContainer Map.empty) |
| 134 |
<*> arbitrary |
|
| 134 | 135 |
-- ts |
| 135 | 136 |
<*> arbitrary <*> arbitrary |
| 136 | 137 |
-- uuid |
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 212 | 212 |
[ simpleField "mac" [t| String |] |
| 213 | 213 |
, optionalField $ simpleField "ip" [t| String |] |
| 214 | 214 |
, simpleField "nicparams" [t| PartialNicParams |] |
| 215 |
, optionalField $ simpleField "network" [t| Network |] |
|
| 215 | 216 |
]) |
| 216 | 217 |
|
| 217 | 218 |
-- * Disk definitions |
| ... | ... | |
| 502 | 503 |
|
| 503 | 504 |
$(buildObject "NodeGroup" "group" $ |
| 504 | 505 |
[ simpleField "name" [t| String |] |
| 505 |
, defaultField [| [] |] $ simpleField "members" [t| [String] |]
|
|
| 506 |
, defaultField [| [] |] $ simpleField "members" [t| [String] |] |
|
| 506 | 507 |
, simpleField "ndparams" [t| PartialNDParams |] |
| 507 | 508 |
, simpleField "alloc_policy" [t| AllocPolicy |] |
| 508 | 509 |
, simpleField "ipolicy" [t| PartialIPolicy |] |
| 509 | 510 |
, simpleField "diskparams" [t| DiskParams |] |
| 511 |
, defaultField [| [] |] $ simpleField "networks" [t| [Network] |] |
|
| 510 | 512 |
] |
| 511 | 513 |
++ timeStampFields |
| 512 | 514 |
++ uuidFields |
Also available in: Unified diff