@@ -96,6 +96,9 @@ spell init0 siz0 recv recvBuf
9696 siz' = siz - len
9797 loop bss' siz'
9898
99+-- The timeout manager may close the socket.
100+-- In that case, an error of "Bad file descriptor" occurs.
101+-- We ignores it because we expect TimeoutThread.
99102receive :: Socket -> BufferPool -> Recv
100103receive sock pool = E.handle handler $ withBufferPool pool $ \ (ptr, size) -> do
101104#if MIN_VERSION_network(3,1,0)