Revision 32be18fc
b/src/Ganeti/Errors.hs | ||
---|---|---|
37 | 37 |
, errorExitCode |
38 | 38 |
, excName |
39 | 39 |
, formatError |
40 |
, ResultG |
|
40 | 41 |
, maybeToError |
41 | 42 |
) where |
42 | 43 |
|
... | ... | |
174 | 175 |
formatError err = |
175 | 176 |
"Unhandled exception: " ++ show err |
176 | 177 |
|
178 |
-- | A type for IO actions with errors properly handled as |
|
179 |
-- 'GanetiException's. |
|
180 |
-- TODO: Move to Errors.hs |
|
181 |
type ResultG = ResultT GanetiException IO |
|
182 |
|
|
177 | 183 |
-- | Convert from an 'ErrorResult' to a standard 'Result'. |
178 | 184 |
errToResult :: ErrorResult a -> Result a |
179 | 185 |
errToResult (Ok a) = Ok a |
Also available in: Unified diff