Add TODOs and cosmetic fixes

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 @@
 -- |
 --   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 #-}