/htools/Ganeti/HTools/Types.hs - Diff - ganeti-local - Greek Research and Technology Network's projects

Revision 179c0828 htools/Ganeti/HTools/Types.hs

                | FailoverAndReplace Ndx  -- ^ Failover, replace secondary (f, r:ns)
                  deriving (Show, Read)
     -- | Instance disk template type
     -- | Instance disk template type.
     data DiskTemplate = DTDiskless
                       | DTFile
                       | DTSharedFile
-...
                       | DTDrbd8
                         deriving (Show, Read, Eq, Enum, Bounded)
     -- | Converts a DiskTemplate to String
     -- | Converts a DiskTemplate to String.
     dtToString :: DiskTemplate -> String
     dtToString DTDiskless   = C.dtDiskless
     dtToString DTFile       = C.dtFile
-...
     dtToString DTBlock      = C.dtBlock
     dtToString DTDrbd8      = C.dtDrbd8
     -- | Converts a DiskTemplate from String
     -- | Converts a DiskTemplate from String.
     dtFromString :: (Monad m) => String -> m DiskTemplate
     dtFromString s =
         case () of
-...
     isBad :: Result a  -> Bool
     isBad = not . isOk
     -- | Converter from Either String to 'Result'
     -- | Converter from Either String to 'Result'.
     eitherToResult :: Either String a -> Result a
     eitherToResult (Left s) = Bad s
     eitherToResult (Right v) = Ok v

Also available in: Unified diff