From 0ec910a0fb7c1e5d72e06f00806b85111138461a Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 11 Feb 2014 12:30:50 +0400 Subject: Add exchange manager and session to client session --- src/Network/BitTorrent/Core/PeerAddr.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Network/BitTorrent/Core/PeerAddr.hs') diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs index 63885144..b62cb945 100644 --- a/src/Network/BitTorrent/Core/PeerAddr.hs +++ b/src/Network/BitTorrent/Core/PeerAddr.hs @@ -240,6 +240,10 @@ instance (Serialize a) => Serialize (PeerAddr a) where instance Default (PeerAddr IPv4) where def = "127.0.0.1:6881" +-- | @127.0.0.1:6881@ +instance Default (PeerAddr IP) where + def = IPv4 <$> def + -- | Example: -- -- @peerPort \"127.0.0.1:6881\" == 6881@ -- cgit v1.2.3