Revision 3c002a13 htools/Ganeti/HTools/Types.hs

b/htools/Ganeti/HTools/Types.hs
104 104
                       -- last-resort, after the preferred groups
105 105
    | AllocUnallocable -- ^ This group must not be used for new
106 106
                       -- allocations
107
      deriving (Show, Read, Eq, Ord)
107
      deriving (Show, Read, Eq, Ord, Enum, Bounded)
108 108

  
109 109
-- | Convert a string to an alloc policy.
110 110
apolFromString :: (Monad m) => String -> m AllocPolicy
......
185 185
                  | DTPlain
186 186
                  | DTBlock
187 187
                  | DTDrbd8
188
                    deriving (Show, Read, Eq)
188
                    deriving (Show, Read, Eq, Enum, Bounded)
189 189

  
190 190
-- | Converts a DiskTemplate to String
191 191
dtToString :: DiskTemplate -> String

Also available in: Unified diff