import FuncTorrent.Utils (toIP, toPort)
--- | Peer is a PeerID, IP address, port tuple
-data Peer = Peer ID IP Port
+-- | Peer is a IP address, port tuple
+data Peer = Peer IP Port
deriving (Show, Eq)
type ID = String
bsToInt x = fromIntegral (runGet getWord32be (fromChunks (return x)))
makePeer :: ByteString -> Peer
-makePeer peer = Peer "" (toIP ip') (toPort port')
+makePeer peer = Peer (toIP ip') (toPort port')
where (ip', port') = splitAt 4 peer