Signed-off-by: BSRK Aditya <[email protected]> --- src/Ganeti/Objects/Disk.hs | 3 +++ 1 file changed, 3 insertions(+)
diff --git a/src/Ganeti/Objects/Disk.hs b/src/Ganeti/Objects/Disk.hs index 4da84b0..c8ec238 100644 --- a/src/Ganeti/Objects/Disk.hs +++ b/src/Ganeti/Objects/Disk.hs @@ -259,6 +259,9 @@ $(buildObjectWithForthcoming "Disk" "disk" $ instance UuidObject Disk where uuidOf = diskUuid +instance SerialNoObject Disk where + serialOf = diskSerial + instance ForthcomingObject Disk where isForthcoming = diskForthcoming -- 2.2.0.rc0.207.ga3a616c
