diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-04-21 16:26:59 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-04-21 17:16:50 +0200 |
| commit | 08aa509ebac58bfb202ea79c7c41291ec280a1c5 (patch) | |
| tree | 2dc09011be01442f6a96497de4cf4bd228c9e029 | |
| parent | ac60bd1f98ad02644d3ea36dd4926ed6e105c789 (diff) | |
Replace local `die` by new `System.Exit.die`
Starting with GHC 7.10, System.Exit exports the new `die`
which is essentially the same as Haddock.Util.die, so this
commit changes Haddock.Util.die to be a simple re-export
of System.Exit.die. See also
https://ghc.haskell.org/trac/ghc/ticket/9016
for more details.
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
| -rw-r--r-- | src/Haddock/Utils.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index ee7bfd0a..9ccca362 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -300,11 +300,7 @@ bye :: String -> IO a bye s = putStr s >> exitSuccess -die :: String -> IO a -die s = hPutStr stderr s >> exitWith (ExitFailure 1) - - -dieMsg :: String -> IO a +dieMsg :: String -> IO () dieMsg s = getProgramName >>= \prog -> die (prog ++ ": " ++ s) |