diff options
| -rw-r--r-- | libraries/base/System/Exit.hs | 7 | ||||
| -rw-r--r-- | libraries/base/changelog.md | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/libraries/base/System/Exit.hs b/libraries/base/System/Exit.hs index a3059fcf9b..4f6eba629c 100644 --- a/libraries/base/System/Exit.hs +++ b/libraries/base/System/Exit.hs @@ -20,9 +20,11 @@ module System.Exit , exitWith , exitFailure , exitSuccess + , die ) where import Prelude +import System.IO import GHC.IO import GHC.IO.Exception @@ -74,3 +76,8 @@ exitFailure = exitWith (ExitFailure 1) exitSuccess :: IO a exitSuccess = exitWith ExitSuccess +-- | Write given error message to `stderr` and terminate with `exitFailure`. +-- +-- /Since: 4.7.1.0/ +die :: String -> IO () +die err = hPutStrLn stderr err >> exitFailure diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md index a72e4e6871..c561165024 100644 --- a/libraries/base/changelog.md +++ b/libraries/base/changelog.md @@ -8,6 +8,8 @@ * Add `Data.List.sortOn` sorting function + * Add `System.Exit.die` + * Weaken RealFloat constraints on some `Data.Complex` functions ## 4.7.0.0 *Apr 2014* |