diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-03-02 11:41:18 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-03-02 11:41:18 +0000 |
commit | da86e174fd2fb35de28cc146c007ef654b72f9cf (patch) | |
tree | a78759f23fcfc3b54b13fabd9aa7b00afe50b3b7 | |
parent | 3a976449bff4296b5d02043f75ae80e7e5c33b9b (diff) |
don't retry usleep() on EINTR (see #850/#1156)
-rw-r--r-- | System/Posix/Unistd.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index 921b006..011abea 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -114,7 +114,7 @@ usleep 0 = return () #ifdef USLEEP_RETURNS_VOID usleep usecs = c_usleep (fromIntegral usecs) #else -usleep usecs = throwErrnoIfMinus1Retry_ "usleep" (c_usleep (fromIntegral usecs)) +usleep usecs = throwErrnoIfMinus1_ "usleep" (c_usleep (fromIntegral usecs)) #endif #ifdef USLEEP_RETURNS_VOID |