Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
ef35d4cf
Commit
ef35d4cf
authored
Apr 25, 2014
by
Simon Peyton Jones
Browse files
Remove the definition of die, which is now provided by System.Exit
parent
ba2e2014
Changes
1
Hide whitespace changes
Inline
Side-by-side
testsuite/timeout/timeout.hs
View file @
ef35d4cf
...
...
@@ -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..."
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment