summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Core/PeerAddr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Core/PeerAddr.hs')
-rw-r--r--src/Network/BitTorrent/Core/PeerAddr.hs5
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
105ipFromBEncode _ = decodingError $ "IP: addr should be a bstring" 106ipFromBEncode _ = decodingError $ "IP: addr should be a bstring"
106 107
107instance Ord IP where
108
109instance BEncode IP where 108instance BEncode IP where
110 toBEncode = ipToBEncode 109 toBEncode = ipToBEncode
111 {-# INLINE toBEncode #-} 110 {-# INLINE toBEncode #-}