From d6e3f3d2b71e28a00e1c180dd411346e058787c1 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 11 Apr 2012 09:47:54 +0100
Subject: [PATCH] small cleanup
---
rts/posix/Select.c | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/rts/posix/Select.c b/rts/posix/Select.c
index 013b374d1add..1edf6bc69023 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
--
GitLab