Add TODOs and cosmetic fixes

2 files changed, 6 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 #-}
diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs
index da46628b..54de44f7 100644
--- a/src/Network/BitTorrent/Tracker/Message.hs
+++ b/src/Network/BitTorrent/Tracker/Message.hs
@@ -1,5 +1,6 @@
 -- |
 --   Copyright   :  (c) Sam Truzjan 2013
+--                  (c) Daniel Gröber 2013
 --   License     :  BSD3
 --   Maintainer  :  pxqr.sta@gmail.com
 --   Stability   :  experimental
@@ -149,6 +150,8 @@ getEvent = do
 {-----------------------------------------------------------------------
   Announce query
 -----------------------------------------------------------------------}
+-- TODO add &ipv6= and &ipv4= params to AnnounceQuery
+-- http://www.bittorrent.org/beps/bep_0007.html#announce-parameter
 
 -- | A tracker request is HTTP GET request; used to include metrics
 --   from clients that help the tracker keep overall statistics about
@@ -433,6 +436,7 @@ renderAnnounceRequest = queryToSimpleQuery . toQuery
 {-----------------------------------------------------------------------
 --  Announce response
 -----------------------------------------------------------------------}
+-- TODO check if announceinterval/complete/incomplete is positive ints
 
 -- | Tracker can return peer list in either compact(BEP23) or not
 -- compact form.