Disk is now an instance of SerialNoObject, TimeStampObject, TimeStampObjectL, UuidObjectL, SerialNoObjectL.
Signed-off-by: BSRK Aditya <[email protected]> --- src/Ganeti/Objects/Disk.hs | 7 +++++++ src/Ganeti/Objects/Lens.hs | 9 +++++++++ 2 files changed, 16 insertions(+) diff --git a/src/Ganeti/Objects/Disk.hs b/src/Ganeti/Objects/Disk.hs index 4da84b0..84945a8 100644 --- a/src/Ganeti/Objects/Disk.hs +++ b/src/Ganeti/Objects/Disk.hs @@ -256,9 +256,16 @@ $(buildObjectWithForthcoming "Disk" "disk" $ ++ serialFields ++ timeStampFields) +instance TimeStampObject Disk where + cTimeOf = diskCtime + mTimeOf = diskMtime + instance UuidObject Disk where uuidOf = diskUuid +instance SerialNoObject Disk where + serialOf = diskSerial + instance ForthcomingObject Disk where isForthcoming = diskForthcoming diff --git a/src/Ganeti/Objects/Lens.hs b/src/Ganeti/Objects/Lens.hs index b1b170d..05bb5f2 100644 --- a/src/Ganeti/Objects/Lens.hs +++ b/src/Ganeti/Objects/Lens.hs @@ -78,6 +78,15 @@ $(makeCustomLenses ''PartialNic) $(makeCustomLenses ''Disk) +instance TimeStampObjectL Disk where + mTimeL = diskMtimeL + +instance UuidObjectL Disk where + uuidL = diskUuidL + +instance SerialNoObjectL Disk where + serialL = diskSerialL + $(makeCustomLenses ''Instance) instance TimeStampObjectL Instance where -- 1.7.10.4
