aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2014-04-21 16:26:59 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2014-04-21 17:16:50 +0200
commit08aa509ebac58bfb202ea79c7c41291ec280a1c5 (patch)
tree2dc09011be01442f6a96497de4cf4bd228c9e029 /src
parentac60bd1f98ad02644d3ea36dd4926ed6e105c789 (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>
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Utils.hs6
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)