From 08aa509ebac58bfb202ea79c7c41291ec280a1c5 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Mon, 21 Apr 2014 16:26:59 +0200 Subject: 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 --- src/Haddock/Utils.hs | 6 +----- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3