diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-04-25 00:06:08 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-04-28 10:59:51 +0100 |
| commit | ef35d4cfcfcb9b0b733f1ec8ec16a1e0020be1f5 (patch) | |
| tree | 17a6c0d8a0c4eda072302eedbc3c31959ef2df94 /testsuite/timeout | |
| parent | ba2e20149e2addaccf5ce3122d3a6e93da696a0a (diff) | |
| download | haskell-ef35d4cfcfcb9b0b733f1ec8ec16a1e0020be1f5.tar.gz | |
Remove the definition of die, which is now provided by System.Exit
Diffstat (limited to 'testsuite/timeout')
| -rw-r--r-- | testsuite/timeout/timeout.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/testsuite/timeout/timeout.hs b/testsuite/timeout/timeout.hs index 08066879b0..f78baa10ea 100644 --- a/testsuite/timeout/timeout.hs +++ b/testsuite/timeout/timeout.hs @@ -33,10 +33,6 @@ main = do _ -> die ("Can't parse " ++ show secs ++ " as a number of seconds") _ -> die ("Bad arguments " ++ show args) -die :: String -> IO () -die msg = do hPutStrLn stderr ("timeout: " ++ msg) - exitWith (ExitFailure 1) - timeoutMsg :: String timeoutMsg = "Timeout happened...killing process..." |