Revision e465608f
| b/src/Ganeti/Objects.hs | ||
|---|---|---|
| 745 | 745 |
, simpleField "instances" [t| Container Instance |] |
| 746 | 746 |
, simpleField "networks" [t| Container Network |] |
| 747 | 747 |
] |
| 748 |
++ timeStampFields |
|
| 748 | 749 |
++ serialFields) |
| 749 | 750 |
|
| 750 | 751 |
instance SerialNoObject ConfigData where |
| 751 | 752 |
serialOf = configSerial |
| 753 |
|
|
| 754 |
instance TimeStampObject ConfigData where |
|
| 755 |
cTimeOf = configCtime |
|
| 756 |
mTimeOf = configMtime |
|
| b/test/hs/Test/Ganeti/Objects.hs | ||
|---|---|---|
| 298 | 298 |
networks = GenericContainer Map.empty |
| 299 | 299 |
let contgroups = GenericContainer $ Map.singleton guuid grp |
| 300 | 300 |
serial <- arbitrary |
| 301 |
-- timestamp fields |
|
| 302 |
ctime <- arbitrary |
|
| 303 |
mtime <- arbitrary |
|
| 301 | 304 |
cluster <- resize 8 arbitrary |
| 302 | 305 |
let c = ConfigData version cluster contnodes contgroups continsts networks |
| 303 |
serial |
|
| 306 |
ctime mtime serial
|
|
| 304 | 307 |
return c |
| 305 | 308 |
|
| 306 | 309 |
-- | FIXME: make an even simpler base version of creating a cluster. |
Also available in: Unified diff