Commit e465608f authored by Petr Pudlak's avatar Petr Pudlak

Add mtime/ctime to ConfigData

It's used on the Python side, it's been missing on the Haskell side.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 31daf7db
......@@ -745,7 +745,12 @@ $(buildObject "ConfigData" "config" $
, simpleField "instances" [t| Container Instance |]
, simpleField "networks" [t| Container Network |]
]
++ timeStampFields
++ serialFields)
instance SerialNoObject ConfigData where
serialOf = configSerial
instance TimeStampObject ConfigData where
cTimeOf = configCtime
mTimeOf = configMtime
......@@ -298,9 +298,12 @@ genEmptyCluster ncount = do
networks = GenericContainer Map.empty
let contgroups = GenericContainer $ Map.singleton guuid grp
serial <- arbitrary
-- timestamp fields
ctime <- arbitrary
mtime <- arbitrary
cluster <- resize 8 arbitrary
let c = ConfigData version cluster contnodes contgroups continsts networks
serial
ctime mtime serial
return c
-- | FIXME: make an even simpler base version of creating a cluster.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment