diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 09:47:54 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 11:39:13 +0100 |
| commit | d6e3f3d2b71e28a00e1c180dd411346e058787c1 (patch) | |
| tree | 45d757bbb383de69b8e676ede2c30b29cc43e7e9 /rts/posix/Select.c | |
| parent | 6f1a4327263385d8056d7cf754ee357d2b14c24b (diff) | |
| download | haskell-d6e3f3d2b71e28a00e1c180dd411346e058787c1.tar.gz | |
small cleanup
Diffstat (limited to 'rts/posix/Select.c')
| -rw-r--r-- | rts/posix/Select.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/posix/Select.c b/rts/posix/Select.c index 013b374d1a..1edf6bc690 100644 --- a/rts/posix/Select.c +++ b/rts/posix/Select.c @@ -218,12 +218,12 @@ awaitEvent(rtsBool wait) the RTS won't loop. */ if ( errno == EBADF ) { - unblock_all = rtsTrue; - break; + unblock_all = rtsTrue; + break; } else { - perror("select"); - barf("select failed"); - } + sysErrorBelch("select"); + stg_exit(EXIT_FAILURE); + } } /* We got a signal; could be one of ours. If so, we need |