diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Network/BitTorrent/Core/PeerAddr.hs | 6 |
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 | ||
136 | instance Serialize IP where | 139 | instance 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 |