Skip to content
Snippets Groups Projects
Commit 6b00a117 authored by Mateusz Kowalczyk's avatar Mateusz Kowalczyk
Browse files

Revert "Replace local `die` by new `System.Exit.die`"

This reverts commit 08aa509e.
parent 574d3c13
No related branches found
No related tags found
5 merge requests!38Make --no-tmp-comp-dir the default,!37Adapt to latest xhtml version, various optimizations,!31Support HsToken in DataDecl and ClassDecl,!12Drop orphan instance when defined upstream.,!10Haddock interfaces produced from `.hi` files
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment