Use http-conduit instead of HTTP package

1 files changed, 13 insertions, 4 deletions

diff --git a/src/Network/BitTorrent/Tracker/RPC/Message.hs b/src/Network/BitTorrent/Tracker/RPC/Message.hs
index 74a3842f..e91d223e 100644
--- a/src/Network/BitTorrent/Tracker/RPC/Message.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/Message.hs
@@ -25,21 +25,26 @@
 {-# OPTIONS -fno-warn-orphans           #-}
 module Network.BitTorrent.Tracker.RPC.Message
        ( -- * Announce
-         -- ** Request
+         -- ** Query
          Event(..)
        , AnnounceQuery(..)
        , renderAnnounceQuery
        , ParamParseFailure
        , parseAnnounceQuery
 
-         -- ** Response
+         -- ** Info
        , PeerList (..)
        , AnnounceInfo(..)
        , defaultNumWant
        , parseFailureStatus
 
          -- * Scrape
+         -- ** Query
        , ScrapeQuery
+       , renderScrapeQuery
+       , parseScrapeQuery
+
+         -- ** Info
        , ScrapeEntry (..)
        , ScrapeInfo
        )
@@ -218,8 +223,6 @@ instance QueryLike AnnounceQuery where
       , ("event"    , toQueryValue reqEvent)
       ]
 
---renderAnnounceQueryBuilder :: AnnounceQuery -> BS.Builder
---renderAnnounceQueryBuilder = undefined
 
 -- | Encode announce query and add it to the base tracker URL.
 renderAnnounceQuery :: AnnounceQuery -> SimpleQuery
@@ -481,6 +484,12 @@ parseFailureStatus = mkStatus <$> parseFailureCode <*> parseFailureMessage
 
 type ScrapeQuery = [InfoHash]
 
+renderScrapeQuery :: ScrapeQuery -> SimpleQuery
+renderScrapeQuery = undefined
+
+parseScrapeQuery :: SimpleQuery -> ScrapeQuery
+parseScrapeQuery = undefined
+
 -- | Overall information about particular torrent.
 data ScrapeEntry = ScrapeEntry {
     -- | Number of seeders - peers with the entire file.