This type class captures those objects where it is meaningful to ask if the object presented to us is forthcoming.
Signed-off-by: Klaus Aehlig <[email protected]> --- src/Ganeti/Types.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Ganeti/Types.hs b/src/Ganeti/Types.hs index b4bf5cc..2b94e02 100644 --- a/src/Ganeti/Types.hs +++ b/src/Ganeti/Types.hs @@ -178,6 +178,7 @@ module Ganeti.Types , OsParamsPrivate , TimeStampObject(..) , UuidObject(..) + , ForthcomingObject(..) , SerialNoObject(..) , TagsObject(..) ) where @@ -980,6 +981,10 @@ class TimeStampObject a where class UuidObject a where uuidOf :: a -> String +-- | Class of objects that can be forthcoming. +class ForthcomingObject a where + isForthcoming :: a -> Bool + -- | Class of object that have a serial number. class SerialNoObject a where serialOf :: a -> Int -- 2.2.0.rc0.207.ga3a616c
