From 33da2f459c0819b694f2ef21dba6d09167a5af6a Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sun, 14 Jul 2013 19:54:29 +0400
Subject: ~ Move initial messages exchange to Exchange.

All exchange details should be in Exchange module, Sessions should
handle handshakes only!
---
 src/Network/BitTorrent/Exchange.hs | 11 +++++++++++
 src/Network/BitTorrent/Sessions.hs | 11 ++---------
 2 files changed, 13 insertions(+), 9 deletions(-)

(limited to 'src')

diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs
index 52b5f690..b2d639f6 100644
--- a/src/Network/BitTorrent/Exchange.hs
+++ b/src/Network/BitTorrent/Exchange.hs
@@ -60,6 +60,7 @@ module Network.BitTorrent.Exchange
        , yieldEvent
        , handleEvent
        , exchange
+       , p2p
 
          -- * Exceptions
        , disconnect
@@ -483,3 +484,13 @@ exchange storage = {-# SCC exchange #-} awaitEvent >>= handler
         if BF.null offer
           then return ()
           else handler (Available offer)
+
+yieldInit :: P2P ()
+yieldInit = yieldMessage . Bitfield =<< getClientBF
+
+p2p :: P2P ()
+p2p = do
+  yieldInit
+  storage <- asks (storage . swarmSession)
+  forever $ do
+    exchange storage
\ No newline at end of file
diff --git a/src/Network/BitTorrent/Sessions.hs b/src/Network/BitTorrent/Sessions.hs
index 4d4cf629..6d99213a 100644
--- a/src/Network/BitTorrent/Sessions.hs
+++ b/src/Network/BitTorrent/Sessions.hs
@@ -121,7 +121,7 @@ startListener cs @ ClientSession {..} port =
   startService peerListener port $ listener cs $ \conn @ (sock, PeerSession{..}) -> do
       print "accepted"
       let storage = error "storage"
-      runP2P conn (exchange storage)
+      runP2P conn p2p
 
 -- | Create a new client session. The data passed to this function are
 -- usually loaded from configuration file.
@@ -204,7 +204,7 @@ discover swarm @ SwarmSession {..} = {-# SCC discover #-} do
         print addr
         initiatePeerSession swarm addr $ \conn -> do
           print addr
-          runP2P conn (exchange storage)
+          runP2P conn p2p
 
 registerSwarmSession :: SwarmSession -> STM ()
 registerSwarmSession ss @ SwarmSession {..} =
@@ -348,11 +348,6 @@ closeSession = unregisterPeerSession
 type PeerConn = (Socket, PeerSession)
 type Exchange = PeerConn -> IO ()
 
-sendClientStatus :: PeerConn -> IO ()
-sendClientStatus (sock, PeerSession {..}) = do
-  cbf <- readTVarIO $ clientBitfield $ swarmSession
-  sendAll sock $ encode $ Bitfield cbf
-
 -- | Exchange action depends on session and socket, whereas session depends
 --   on socket:
 --
@@ -379,7 +374,6 @@ initiatePeerSession ss @ SwarmSession {..} addr
       phs  <- handshake sock (swarmHandshake ss)
       putStrLn "handshaked"
       ps   <- openSession ss addr phs
-      sendClientStatus (sock, ps)
       return ps
 
 -- | Used the a peer want to connect to the client.
@@ -396,7 +390,6 @@ acceptPeerSession cs@ClientSession {..} addr s = runSession (pure s) accepted
         , hsInfoHash = hsInfoHash phs
         , hsPeerId   = clientPeerId
         }
-      sendClientStatus (sock, ps)
       return ps
 
 listener :: ClientSession -> Exchange -> PortNumber -> IO ()
-- 
cgit v1.2.3