1 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/BitTorrent/Internal.hs b/src/Network/BitTorrent/Internal.hs
index 39e10ce2..91dc35d5 100644
--- a/src/Network/BitTorrent/Internal.hs
+++ b/src/Network/BitTorrent/Internal.hs
@@ -226,12 +226,12 @@ updateOutcoming PeerSession {..}  =
   updateTimeout (eventManager (clientSession swarmSession))
     outcomingTimeout maxOutcomingTime
 
-sendKA :: Socket -> SwarmSession -> IO ()
-sendKA sock SwarmSession {..} = do
+sendKA :: Socket -> IO ()
+sendKA sock {- SwarmSession {..} -} = do
   print "I'm sending keep alive."
   sendAll sock (encode BT.KeepAlive)
-  let mgr = eventManager clientSession
-  updateTimeout mgr
+--  let mgr = eventManager clientSession
+--  updateTimeout mgr
   print "Done.."
 
 abortSession :: IO ()