Revision 179c0828 htools/Ganeti/HTools/Types.hs
b/htools/Ganeti/HTools/Types.hs | ||
---|---|---|
180 | 180 |
| FailoverAndReplace Ndx -- ^ Failover, replace secondary (f, r:ns) |
181 | 181 |
deriving (Show, Read) |
182 | 182 |
|
183 |
-- | Instance disk template type |
|
183 |
-- | Instance disk template type.
|
|
184 | 184 |
data DiskTemplate = DTDiskless |
185 | 185 |
| DTFile |
186 | 186 |
| DTSharedFile |
... | ... | |
189 | 189 |
| DTDrbd8 |
190 | 190 |
deriving (Show, Read, Eq, Enum, Bounded) |
191 | 191 |
|
192 |
-- | Converts a DiskTemplate to String |
|
192 |
-- | Converts a DiskTemplate to String.
|
|
193 | 193 |
dtToString :: DiskTemplate -> String |
194 | 194 |
dtToString DTDiskless = C.dtDiskless |
195 | 195 |
dtToString DTFile = C.dtFile |
... | ... | |
198 | 198 |
dtToString DTBlock = C.dtBlock |
199 | 199 |
dtToString DTDrbd8 = C.dtDrbd8 |
200 | 200 |
|
201 |
-- | Converts a DiskTemplate from String |
|
201 |
-- | Converts a DiskTemplate from String.
|
|
202 | 202 |
dtFromString :: (Monad m) => String -> m DiskTemplate |
203 | 203 |
dtFromString s = |
204 | 204 |
case () of |
... | ... | |
281 | 281 |
isBad :: Result a -> Bool |
282 | 282 |
isBad = not . isOk |
283 | 283 |
|
284 |
-- | Converter from Either String to 'Result' |
|
284 |
-- | Converter from Either String to 'Result'.
|
|
285 | 285 |
eitherToResult :: Either String a -> Result a |
286 | 286 |
eitherToResult (Left s) = Bad s |
287 | 287 |
eitherToResult (Right v) = Ok v |
Also available in: Unified diff