Minor changes

1 files changed, 2 insertions, 2 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