Minor changes

2 files changed, 2 insertions, 11 deletions

diff --git a/src/Network/BitTorrent/Tracker/RPC/Message.hs b/src/Network/BitTorrent/Tracker/RPC/Message.hs
index 4a5aa789..26e57760 100644
--- a/src/Network/BitTorrent/Tracker/RPC/Message.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/Message.hs
@@ -227,7 +227,7 @@ instance QueryValueLike Int where
 instance QueryLike AnnounceQuery where
   toQuery AnnounceQuery {..} =
       toQuery reqProgress ++
-      [ ("info_hash", toQueryValue reqInfoHash)
+      [ ("info_hash", toQueryValue reqInfoHash) -- TODO use 'paramName'
       , ("peer_id"  , toQueryValue reqPeerId)
       , ("port"     , toQueryValue reqPort)
       , ("ip"       , toQueryValue reqIP)
@@ -376,7 +376,7 @@ instance Default AnnounceQueryExt where
 
 instance QueryLike AnnounceQueryExt where
   toQuery AnnounceQueryExt {..} =
-      [ ("compact",    toQueryFlag <$> extCompact)
+      [ ("compact",    toQueryFlag <$> extCompact) -- TODO use 'paramName'
       , ("no_peer_id", toQueryFlag <$> extNoPeerId)
       ]
     where
diff --git a/src/Network/BitTorrent/Tracker/Wai.hs b/src/Network/BitTorrent/Tracker/Wai.hs
index f290c380..f4cff5dc 100644
--- a/src/Network/BitTorrent/Tracker/Wai.hs
+++ b/src/Network/BitTorrent/Tracker/Wai.hs
@@ -1,12 +1,3 @@
--- supported extensions:
---
---   no_peer_id - do not send peer id if no_peer_id=1 specified
---   http://www.bittorrent.org/beps/bep_0023.html
---
---   compact - compact=1 or compact=0
---   http://permalink.gmane.org/gmane.network.bit-torrent.general/4030
---
---
 {-# LANGUAGE RecordWildCards #-}
 module Network.BitTorrent.Tracker.Wai
        ( tracker