From 70635487f448b30dfa6e49554e4ac660ed32ea81 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Tue, 18 Mar 2014 17:30:22 +0400
Subject: Fix code style

---
 src/Network/BitTorrent/Client/Handle.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent/Client/Handle.hs')

diff --git a/src/Network/BitTorrent/Client/Handle.hs b/src/Network/BitTorrent/Client/Handle.hs
index e7884caa..d68c57cc 100644
--- a/src/Network/BitTorrent/Client/Handle.hs
+++ b/src/Network/BitTorrent/Client/Handle.hs
@@ -78,9 +78,14 @@ openTorrent rootPath t @ Torrent {..} = do
   allocHandle ih $ do
     c @ Client {..} <- getClient
     tses <- liftIO $ Tracker.newSession ih (trackerList t)
-    eses <- liftIO $ Exchange.newSession clientLogger (externalAddr c) rootPath
-                                         tInfoDict
-    return $ Handle ih (idPrivate tInfoDict) tses eses
+    eses <- liftIO $ Exchange.newSession clientLogger (externalAddr c)
+                       rootPath tInfoDict
+    return $ Handle
+      { topic    = ih
+      , private  = idPrivate tInfoDict
+      , trackers = tses
+      , exchange = eses
+      }
 
 -- | Use 'nullMagnet' to open handle from 'InfoHash'.
 openMagnet :: FilePath -> Magnet -> BitTorrent Handle
-- 
cgit v1.2.3