Signed-off-by: Klaus Aehlig <[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 a2d2976..4091430 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 ForthcomingObject Disk where + isForthcoming = diskForthcoming + -- | Determines whether a disk or one of his children has the given logical id -- (determined by the volume group name and by the logical volume name). -- This can be true only for DRBD or LVM disks. -- 2.2.0.rc0.207.ga3a616c
