From 32b0f3570237e4d4742fc8874980f2b479c1ae75 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 5 Dec 2013 03:26:56 +0400
Subject: Add Wire module

---
 src/Network/BitTorrent/Core/PeerAddr.hs | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/Network/BitTorrent/Core/PeerAddr.hs')

diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs
index ed2dc672..81754e5e 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -18,7 +18,6 @@ module Network.BitTorrent.Core.PeerAddr
          PeerAddr(..)
        , defaultPorts
        , peerSockAddr
-       , connectToPeer
        ) where
 
 import Control.Applicative
@@ -116,10 +115,3 @@ peerSockAddr = SockAddrInet <$> (g . peerPort) <*> (htonl . peerIP)
 
     g :: PortNumber -> PortNumber
     g = id
-
--- | Tries to connect to peer using reasonable default parameters.
-connectToPeer :: PeerAddr -> IO Socket
-connectToPeer p = do
-  sock <- socket AF_INET Stream Network.Socket.defaultProtocol
-  connect sock (peerSockAddr p)
-  return sock
-- 
cgit v1.2.3