error fix.

kazu-yamamoto · Jun 21, 2012 · 57d2127 · 57d2127
1 parent 8039857
commit 57d2127
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Sendfile/Linux.hsc b/Network/Sendfile/Linux.hsc
@@ -120,7 +120,7 @@ sendAllMsgMore sock hook bs = do
     sent <- sendMsgMore sock bs
     when (sent < B.length bs) $ do
         hook
-        sendAllMsgMore sock (B.drop sent bs)
+        sendAllMsgMore sock hook (B.drop sent bs)
 
 sendMsgMore :: Socket -> ByteString -> IO Int
 sendMsgMore (MkSocket s _ _ _ _) xs =