msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Own definition of die for base < 4.8.0.0

Browse Source
This commit is contained in:
John J. Camilleri
2018-10-31 08:43:48 +01:00
parent 999cdb8e36
commit e30fa8933f
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Make.hs
View File

@@ -6,7 +6,7 @@ import Data.List (find,isPrefixOf,isSuffixOf,(\\),unfoldr)
import Data.Maybe (catMaybes) import Data.Maybe (catMaybes)
import System.IO (hPutStrLn,stderr) import System.IO (hPutStrLn,stderr)
import System.IO.Error (catchIOError) import System.IO.Error (catchIOError)
import System.Exit (ExitCode(..),die) import System.Exit (ExitCode(..),exitFailure)
import System.Environment (getArgs,lookupEnv) import System.Environment (getArgs,lookupEnv)
import System.Process (rawSystem) import System.Process (rawSystem)
import System.FilePath ((</>)) -- ,takeFileName,addExtension,dropExtension) import System.FilePath ((</>)) -- ,takeFileName,addExtension,dropExtension)
@@ -447,3 +447,8 @@ parallel_ ms = sequence_ ms
putErrLn :: String -> IO () putErrLn :: String -> IO ()
putErrLn = hPutStrLn stderr putErrLn = hPutStrLn stderr
die :: String -> IO a
die s = do
hPutStrLn stderr s
exitFailure