diff options
Diffstat (limited to 'src/Network/BitTorrent/Core/PeerAddr.hs')
-rw-r--r-- | src/Network/BitTorrent/Core/PeerAddr.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs index 88239d0b..e7441929 100644 --- a/src/Network/BitTorrent/Core/PeerAddr.hs +++ b/src/Network/BitTorrent/Core/PeerAddr.hs | |||
@@ -1,8 +1,9 @@ | |||
1 | -- | | 1 | -- | |
2 | -- Copyright : (c) Sam Truzjan 2013 | 2 | -- Copyright : (c) Sam Truzjan 2013 |
3 | -- (c) Daniel Gröber 2013 | ||
3 | -- License : BSD3 | 4 | -- License : BSD3 |
4 | -- Maintainer : pxqr.sta@gmail.com | 5 | -- Maintainer : pxqr.sta@gmail.com |
5 | -- Stability : experimental | 6 | -- Stability : provisional |
6 | -- Portability : portable | 7 | -- Portability : portable |
7 | -- | 8 | -- |
8 | -- 'PeerAddr' is used to represent peer address. Currently it's | 9 | -- 'PeerAddr' is used to represent peer address. Currently it's |
@@ -104,8 +105,6 @@ ipFromBEncode (BString (BS8.unpack -> ipStr)) | |||
104 | | otherwise = decodingError $ "IP: " ++ ipStr | 105 | | otherwise = decodingError $ "IP: " ++ ipStr |
105 | ipFromBEncode _ = decodingError $ "IP: addr should be a bstring" | 106 | ipFromBEncode _ = decodingError $ "IP: addr should be a bstring" |
106 | 107 | ||
107 | instance Ord IP where | ||
108 | |||
109 | instance BEncode IP where | 108 | instance BEncode IP where |
110 | toBEncode = ipToBEncode | 109 | toBEncode = ipToBEncode |
111 | {-# INLINE toBEncode #-} | 110 | {-# INLINE toBEncode #-} |