diff options
Diffstat (limited to 'distrib/compare/Utils.hs')
| -rw-r--r-- | distrib/compare/Utils.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/distrib/compare/Utils.hs b/distrib/compare/Utils.hs index 720f533aaa..bc4fd204fd 100644 --- a/distrib/compare/Utils.hs +++ b/distrib/compare/Utils.hs @@ -11,11 +11,15 @@ die :: Errors -> IO a die errs = do mapM_ (hPutStrLn stderr) errs exitFailure +warn :: Errors -> IO () +warn warnings = mapM_ (hPutStrLn stderr) warnings + dieOnErrors :: Either Errors a -> IO a dieOnErrors (Left errs) = die errs dieOnErrors (Right x) = return x type Errors = [String] +type Warnings = [String] maybeRead :: Read a => String -> Maybe a maybeRead str = case reads str of |