Revision e061eb16 src/Ganeti/Errors.hs
b/src/Ganeti/Errors.hs | ||
---|---|---|
40 | 40 |
, maybeToError |
41 | 41 |
) where |
42 | 42 |
|
43 |
import Control.Monad.Error (Error(..)) |
|
44 | 43 |
import Text.JSON hiding (Result, Ok) |
45 | 44 |
import System.Exit |
46 | 45 |
|
... | ... | |
113 | 112 |
]) |
114 | 113 |
|
115 | 114 |
instance Error GanetiException where |
116 |
strMsg = mkFromString
|
|
115 |
strMsg = GenericError
|
|
117 | 116 |
|
118 | 117 |
instance JSON GanetiException where |
119 | 118 |
showJSON = saveGanetiException |
120 | 119 |
readJSON = loadGanetiException |
121 | 120 |
|
122 |
instance FromString GanetiException where |
|
123 |
mkFromString = GenericError |
|
124 |
|
|
125 | 121 |
-- | Error monad using 'GanetiException' type alias. |
126 | 122 |
type ErrorResult = GenericResult GanetiException |
127 | 123 |
|
Also available in: Unified diff