Rename getPeers -> peers

[functorrent.git] / src / FuncTorrent / Peer.hs

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index b9334ba8a50b73f1cd2bfe3d70fa2b51a99758e9..105994d2ccdf502bbf3029206f41144f05463dec 100644 (file)
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -1,7 +1,6 @@
 module FuncTorrent.Peer
     (Peer,
      PeerResp(..),
-     getPeers,
      getPeerResponse,
      handShakeMsg
     ) where
@@ -35,9 +34,6 @@ data PeerResp = PeerResponse { interval :: Maybe Integer
 toInt :: String -> Integer
 toInt = read
 
-getPeers :: PeerResp -> [Peer]
-getPeers = peers
-
 getPeerResponse :: ByteString -> PeerResp
 getPeerResponse body = case decode body of
                         Right (Bdict peerM) ->