From e30fa8933f508d363215e3367dd86174bbc27676 Mon Sep 17 00:00:00 2001 From: "John J. Camilleri" Date: Wed, 31 Oct 2018 08:43:48 +0100 Subject: [PATCH] Own definition of `die` for base < 4.8.0.0 --- Make.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Make.hs b/Make.hs index 2fccdaae0..b2a6784c0 100644 --- a/Make.hs +++ b/Make.hs @@ -6,7 +6,7 @@ import Data.List (find,isPrefixOf,isSuffixOf,(\\),unfoldr) import Data.Maybe (catMaybes) import System.IO (hPutStrLn,stderr) import System.IO.Error (catchIOError) -import System.Exit (ExitCode(..),die) +import System.Exit (ExitCode(..),exitFailure) import System.Environment (getArgs,lookupEnv) import System.Process (rawSystem) import System.FilePath (()) -- ,takeFileName,addExtension,dropExtension) @@ -447,3 +447,8 @@ parallel_ ms = sequence_ ms putErrLn :: String -> IO () putErrLn = hPutStrLn stderr + +die :: String -> IO a +die s = do + hPutStrLn stderr s + exitFailure