Permalink
Browse files

Reverting previous commit as we cannot retry. Leaving a TODO for now

  • Loading branch information...
1 parent f1c5993 commit 1c6a5f7a3b46b59dba08ed16102b585ef80bdddf @tibbe tibbe committed Dec 23, 2009
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/System/Event/KQueue.hsc
@@ -120,10 +120,12 @@ kqueue :: IO EventQ
kqueue = EventQ `fmap` throwErrnoIfMinus1
"kqueue" (fmap unEventQ c_kqueue)
+-- TODO: We cannot retry on EINTR as the timeout would be wrong.
+-- Perhaps we should just return without calling any callbacks.
kevent :: EventQ -> Ptr Event -> Int -> Ptr Event -> Int -> Ptr TimeSpec
-> IO Int
kevent k chs chlen evs evlen ts
- = fmap fromIntegral $ throwErrnoIfMinus1Retry "kevent" $
+ = fmap fromIntegral $ throwErrnoIfMinus1 "kevent" $
c_kevent k chs (fromIntegral chlen) evs (fromIntegral evlen) ts
withTimeSpec :: TimeSpec -> (Ptr TimeSpec -> IO a) -> IO a

0 comments on commit 1c6a5f7

Please sign in to comment.