~ Move the Peer datatype to PeerID module.

We need this to escape recursive module dependencies.

1 files changed, 1 insertions, 7 deletions

diff --git a/src/Network/Torrent/Tracker.hs b/src/Network/Torrent/Tracker.hs
index ef2413f6..20cdb2fc 100644
--- a/src/Network/Torrent/Tracker.hs
+++ b/src/Network/Torrent/Tracker.hs
@@ -2,7 +2,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Network.Torrent.Tracker
        ( module Network.Torrent.Tracker.Scrape
-       , Peer(..), Event(..), TRequest(..), TResponse(..)
+       , Event(..), TRequest(..), TResponse(..)
        , defaultRequest, defaultPorts
        , sendRequest
        )
@@ -31,12 +31,6 @@ import Network.URI
 import Network.Torrent.PeerID
 
 
-data Peer = Peer {
-      peerID   :: Maybe PeerID
-    , peerIP   :: HostAddress
-    , peerPort :: PortNumber
-    } deriving Show
-
 data Event = Started   -- ^ For first request.
            | Stopped   -- ^ Sent when the peer is shutting down.
            | Completed -- ^ To be sent when the peer completes a download.