summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/KRPC/Protocol.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Network/KRPC/Protocol.hs b/src/Network/KRPC/Protocol.hs
index 32065ff7..71f5b773 100644
--- a/src/Network/KRPC/Protocol.hs
+++ b/src/Network/KRPC/Protocol.hs
@@ -220,9 +220,8 @@ maxMsgSize :: Int
220maxMsgSize = 64 * 1024 -- bench: max UDP MTU 220maxMsgSize = 64 * 1024 -- bench: max UDP MTU
221{-# INLINE maxMsgSize #-} 221{-# INLINE maxMsgSize #-}
222 222
223-- TODO eliminate toStrict
224sendMessage :: BEncode msg => msg -> KRemoteAddr -> KRemote -> IO () 223sendMessage :: BEncode msg => msg -> KRemoteAddr -> KRemote -> IO ()
225sendMessage msg addr sock = sendAllTo sock (LB.toStrict (encoded msg)) addr 224sendMessage msg addr sock = sendManyTo sock (LB.toChunks (encoded msg)) addr
226{-# INLINE sendMessage #-} 225{-# INLINE sendMessage #-}
227 226
228recvResponse :: KRemote -> IO (Either KError KResponse) 227recvResponse :: KRemote -> IO (Either KError KResponse)