summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Network/BitTorrent/Core/PeerAddr.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs
index b9d4878e..261df8d0 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -133,13 +133,13 @@ instance BEncode IPv6 where
133 fromBEncode = ipFromBEncode 133 fromBEncode = ipFromBEncode
134 {-# INLINE fromBEncode #-} 134 {-# INLINE fromBEncode #-}
135 135
136-- | When 'get'ing an IP it must be 'isolate'd to the appropriate
137-- number of bytes since we have no other way of telling which
138-- address type we are trying to parse
136instance Serialize IP where 139instance Serialize IP where
137 put (IPv4 ip) = put ip 140 put (IPv4 ip) = put ip
138 put (IPv6 ip) = put ip 141 put (IPv6 ip) = put ip
139 142
140 -- | When 'get'ing an IP it must be 'isolate'd to the appropriate number of
141 -- bytes since we have no other way of telling which address type we are
142 -- trying to parse
143 get = do 143 get = do
144 n <- remaining 144 n <- remaining
145 case n of 145 case n of