Revision 707cd3d7 htools/Ganeti/Utils.hs
b/htools/Ganeti/Utils.hs | ||
---|---|---|
213 | 213 |
-- | Unwraps a 'Result', exiting the program if it is a 'Bad' value, |
214 | 214 |
-- otherwise returning the actual contained value. |
215 | 215 |
exitIfBad :: String -> Result a -> IO a |
216 |
exitIfBad msg (Bad s) = do |
|
217 |
hPutStrLn stderr $ "Error: " ++ msg ++ ": " ++ s |
|
218 |
exitWith (ExitFailure 1) |
|
216 |
exitIfBad msg (Bad s) = exitErr (msg ++ ": " ++ s) |
|
219 | 217 |
exitIfBad _ (Ok v) = return v |
220 | 218 |
|
221 | 219 |
-- | Exits immediately with an error message. |
222 | 220 |
exitErr :: String -> IO a |
223 | 221 |
exitErr errmsg = do |
224 |
hPutStrLn stderr $ "Error: " ++ errmsg ++ "."
|
|
222 |
hPutStrLn stderr $ "Error: " ++ errmsg |
|
225 | 223 |
exitWith (ExitFailure 1) |
226 | 224 |
|
227 | 225 |
-- | Exits with an error message if the given boolean condition if true. |
Also available in: Unified diff