[commit: haddock] master: Replace local `die` by new `System.Exit.die` (08aa509)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/08aa509ebac58bfb202ea79c7c41291ec280a1c5

>---------------------------------------------------------------

commit 08aa509ebac58bfb202ea79c7c41291ec280a1c5
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Mon Apr 21 16:26:59 2014 +0200

    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 at gnu.org>


>---------------------------------------------------------------

08aa509ebac58bfb202ea79c7c41291ec280a1c5
 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 ee7bfd0..9ccca36 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)