~ Use bytestring stream in tracker communication.

stringBufferOp is defined in terms of strictBuffer op. So we previously
we have convertion from strict bytestring to string and then manually
pack string back to strict bytestring to with BC.pack. We could avoid
this unnecessary convertion by just using bytestring streams.

http://hackage.haskell.org/packages/archive/HTTP/4000.0.9/doc/html/Network-BufferType.html#v:stringBufferOp

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index a6c1c8b6..1bd70268 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -178,8 +178,8 @@ sendRequest req = do
 
   rawResp  <- simpleHTTP r
   respBody <- getResponseBody rawResp
-  return (decoded (BC.pack respBody))
+  return (decoded respBody)
 
   where
-    mkHTTPRequest :: URI -> Request String
+    mkHTTPRequest :: URI -> Request ByteString
     mkHTTPRequest uri = Request uri GET [] ""