@@ -30,7 +30,9 @@ import Prelude hiding (catch)
30-- Sock.recv first tries to call recvfrom() optimistically.
30-- Sock.recv first tries to call recvfrom() optimistically.
31-- If EAGAIN returns, it polls incoming data with epoll/kqueue.
31-- If EAGAIN returns, it polls incoming data with epoll/kqueue.
32-- This code first polls incoming data with epoll/kqueue.
32-- This code first polls incoming data with epoll/kqueue.
33#define PESSIMISTIC_RECV 1
34#define PESSIMISTIC_RECV 1
35#ifdef PESSIMISTIC_RECV
37#ifdef PESSIMISTIC_RECV
36import System.Posix.Types (Fd(..))
38import System.Posix.Types (Fd(..))