Fix GotPeers(peers) key

2 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs
index bc4a1078..86b88491 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -254,7 +254,7 @@ peerSockAddr PeerAddr {..} =
 
 -- | Storage used to keep track a set of known peers in client,
 -- tracker or DHT sessions.
-newtype PeerStore a = PeerStore (HashMap InfoHash [PeerAddr a])
+newtype PeerStore ip = PeerStore (HashMap InfoHash [PeerAddr ip])
 
 -- | Empty store.
 instance Default (PeerStore a) where
diff --git a/src/Network/BitTorrent/DHT/Message.hs b/src/Network/BitTorrent/DHT/Message.hs
index a2a6484a..85abf019 100644
--- a/src/Network/BitTorrent/DHT/Message.hs
+++ b/src/Network/BitTorrent/DHT/Message.hs
@@ -163,7 +163,7 @@ data GotPeers ip = GotPeers
   { -- | If the queried node has no peers for the infohash, returned
     -- the K nodes in the queried nodes routing table closest to the
     -- infohash supplied in the query.
-    peers        :: Either [NodeAddr ip] [PeerAddr ip]
+    peers        :: Either [NodeInfo ip] [PeerAddr ip]
 
     -- | The token value is a required argument for a future
     -- announce_peer query.
@@ -171,7 +171,7 @@ data GotPeers ip = GotPeers
   } deriving Typeable
 
 peers_key :: BKey
-peers_key = "peers"
+peers_key = "values"
 
 token_key :: BKey
 token_key = "token"
@@ -204,7 +204,7 @@ data Announce = Announce
   { -- | infohash of the torrent;
     topic    :: InfoHash
 
-    -- | the port /this/ peer is listenning;
+    -- | the port /this/ peer is listening;
   , port     :: PortNumber
 
     -- | received in response to a previous get_peers query.