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