From cb67880b7521bfc6825d350a0c05f6fbb8910822 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Mon, 16 Dec 2013 21:15:04 +0400
Subject: Add TODOs and cosmetic fixes

---
 src/Network/BitTorrent/Core/PeerAddr.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(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 88239d0b..e7441929 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -1,8 +1,9 @@
 -- |
 --   Copyright   :  (c) Sam Truzjan 2013
+--                  (c) Daniel Gröber 2013
 --   License     :  BSD3
 --   Maintainer  :  pxqr.sta@gmail.com
---   Stability   :  experimental
+--   Stability   :  provisional
 --   Portability :  portable
 --
 --   'PeerAddr' is used to represent peer address. Currently it's
@@ -104,8 +105,6 @@ ipFromBEncode (BString (BS8.unpack -> ipStr))
   |         otherwise            = decodingError $ "IP: " ++ ipStr
 ipFromBEncode _    = decodingError $ "IP: addr should be a bstring"
 
-instance Ord IP where
-
 instance BEncode IP where
   toBEncode   = ipToBEncode
   {-# INLINE toBEncode #-}
-- 
cgit v1.2.3