Permalink
Browse files

Merge pull request #11 from BardurArantsson/fix-errno

Insert missing getErrno call
  • Loading branch information...
2 parents 8e50f4e + 5e95a14 commit 2483017cde20f08edf76e52a14c5de46c6aca1bf @kazu-yamamoto committed Dec 7, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 Network/Sendfile/Linux.hsc
@@ -104,6 +104,7 @@ sendloop dst src offp len hook = do
hook
-- Parallel IO manager use edge-trigger mode.
-- So, calling threadWaitWrite only when errnor is eAGAIN.
+ errno <- getErrno
when (errno == eAGAIN) $ threadWaitWrite dst
sendloop dst src offp left hook

0 comments on commit 2483017

Please sign in to comment.