diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 11:46:00 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 11:46:00 +0000 |
commit | 2e147b0cf3567c5a401670b9bbcd95665aadd024 (patch) | |
tree | a3edb2f635324b10da4b20741631026a54634121 /System/Posix/IO.hsc | |
parent | 6f74df238e660ffeb27d86feaf01222122a296eb (diff) |
check for EINTR in openFd
Diffstat (limited to 'System/Posix/IO.hsc')
-rw-r--r-- | System/Posix/IO.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/IO.hsc b/System/Posix/IO.hsc index df2ed45..839ec4f 100644 --- a/System/Posix/IO.hsc +++ b/System/Posix/IO.hsc @@ -179,7 +179,7 @@ openFd :: FilePath openFd name how maybe_mode (OpenFileFlags appendFlag exclusiveFlag nocttyFlag nonBlockFlag truncateFlag) = do withCString name $ \s -> do - fd <- throwErrnoPathIfMinus1 "openFd" name (c_open s all_flags mode_w) + fd <- throwErrnoPathIfMinus1Retry "openFd" name (c_open s all_flags mode_w) return (Fd fd) where all_flags = creat .|. flags .|. open_mode |