[commit: haddock] 2.15, 2.15.0.1, 2.15.0.2, T6018-injective-type-families, adamse-D1033, clean, fix-travis, ghc-head, master, metainfo, v2.15, wip/10268, wip/10313, wip/D538, wip/D538-1, wip/D538-2, wip/D538-3, wip/D538-4, wip/D538-5, wip/D538-6, wip/D548-master, wip/D548-master-2, wip/T10483, wip/T9840, wip/api-annot-tweaks-7.10, wip/api-annots-ghc-7.10-3, wip/orf-reboot: Revert "Replace local `die` by new `System.Exit.die`" (6b00a11)

git at git.haskell.org git at git.haskell.org
Wed Jul 8 08:29:57 UTC 2015


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

On branches: 2.15,2.15.0.1,2.15.0.2,T6018-injective-type-families,adamse-D1033,clean,fix-travis,ghc-head,master,metainfo,v2.15,wip/10268,wip/10313,wip/D538,wip/D538-1,wip/D538-2,wip/D538-3,wip/D538-4,wip/D538-5,wip/D538-6,wip/D548-master,wip/D548-master-2,wip/T10483,wip/T9840,wip/api-annot-tweaks-7.10,wip/api-annots-ghc-7.10-3,wip/orf-reboot
Link       : http://git.haskell.org/haddock.git/commitdiff/6b00a11733a8ae02c11e57a75265abd2dc77ecb0

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

commit 6b00a11733a8ae02c11e57a75265abd2dc77ecb0
Author: Mateusz Kowalczyk <fuuzetsu at fuuzetsu.co.uk>
Date:   Thu Aug 14 20:26:09 2014 +0100

    Revert "Replace local `die` by new `System.Exit.die`"
    
    This reverts commit 08aa509ebac58bfb202ea79c7c41291ec280a1c5.


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

6b00a11733a8ae02c11e57a75265abd2dc77ecb0
 src/Haddock/Utils.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs
index 9ccca36..ee7bfd0 100644
--- a/src/Haddock/Utils.hs
+++ b/src/Haddock/Utils.hs
@@ -300,7 +300,11 @@ bye :: String -> IO a
 bye s = putStr s >> exitSuccess
 
 
-dieMsg :: String -> IO ()
+die :: String -> IO a
+die s = hPutStr stderr s >> exitWith (ExitFailure 1)
+
+
+dieMsg :: String -> IO a
 dieMsg s = getProgramName >>= \prog -> die (prog ++ ": " ++ s)
 
 



More information about the ghc-commits mailing list