htools: read the disk template in Luxi and Rapi

[ganeti-local] / htools / Ganeti / HTools / Types.hs

diff --git a/htools/Ganeti/HTools/Types.hs b/htools/Ganeti/HTools/Types.hs
index 2664093..efa2f0a 100644 (file)
--- a/htools/Ganeti/HTools/Types.hs
+++ b/htools/Ganeti/HTools/Types.hs
@@ -104,7 +104,7 @@ data AllocPolicy
                        -- last-resort, after the preferred groups
     | AllocUnallocable -- ^ This group must not be used for new
                        -- allocations
-      deriving (Show, Read, Eq, Ord)
+      deriving (Show, Read, Eq, Ord, Enum, Bounded)
 
 -- | Convert a string to an alloc policy.
 apolFromString :: (Monad m) => String -> m AllocPolicy
@@ -185,7 +185,7 @@ data DiskTemplate = DTDiskless
                   | DTPlain
                   | DTBlock
                   | DTDrbd8
-                    deriving (Show, Read, Eq)
+                    deriving (Show, Read, Eq, Enum, Bounded)
 
 -- | Converts a DiskTemplate to String
 dtToString :: DiskTemplate -> String