2 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/Tracker/HTTP.hs b/src/Network/BitTorrent/Tracker/HTTP.hs
index f781b847..4fef5e56 100644
--- a/src/Network/BitTorrent/Tracker/HTTP.hs
+++ b/src/Network/BitTorrent/Tracker/HTTP.hs
@@ -15,7 +15,7 @@
 --
 module Network.BitTorrent.Tracker.HTTP
        ( askTracker, leaveTracker
-       , scrapeURL
+       , scrapeURL, scrape, scrapeOne
        ) where
 
 import Control.Applicative
@@ -30,7 +30,7 @@ import Data.URLEncoded as URL
 import Network.URI
 import Network.HTTP
 
-import Data.Torrent.Metainfo
+import Data.Torrent.Metainfo hiding (announce)
 import Network.BitTorrent.Tracker.Protocol
 
 {-----------------------------------------------------------------------
diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index c468656f..4e1262ed 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -261,7 +261,7 @@ instance Serialize AnnounceQuery where
 
     ev   <- getEvent
     ip   <- getWord32be
-    key  <- getWord32be -- TODO
+--    key  <- getWord32be -- TODO
     want <- getWord32be
 
     port <- get