getPeerResponse :: ByteString -> PeerResp
getPeerResponse body = case decode body of
Right (Bdict peerM) ->
- let (Just (Bint i)) = lookup (Bstr (pack "lookup")) peerM
+ let (Just (Bint i)) = lookup (Bstr (pack "interval")) peerM
(Bstr peersBS) = peerM ! Bstr (pack "peers")
pl = map (\peer -> let (ip', port') = splitAt 4 peer
in Peer (toIPNum ip') (toPortNum port'))