From 6bb92a610c4874ea3fa37fb15cd55c48f219d6ed Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 16 Aug 2013 08:50:08 +0400
Subject: ~ Remove torrent-content modules.

---
 bench/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'bench/Main.hs')

diff --git a/bench/Main.hs b/bench/Main.hs
index ecfefcea..a7b937ff 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -5,9 +5,9 @@ import Control.DeepSeq
 import Criterion.Main
 import Network
 
-import Network.BitTorrent as BT
 import Network.BitTorrent.Exchange.Protocol as BT
-import Data.Bitfield as BT
+import Data.Torrent.Block as BT
+import Data.Torrent.Bitfield as BT
 
 
 instance NFData PortNumber where
@@ -29,6 +29,7 @@ instance NFData Message where
   rnf (Cancel   b) = rnf b
   rnf (Port     i) = rnf i
   rnf _ = ()  -- other fields are forced by pattern matching
+
 {-
 encodeMessages :: [Message] -> ByteString
 encodeMessages xs = runPut (mapM_ put xs)
@@ -36,5 +37,6 @@ encodeMessages xs = runPut (mapM_ put xs)
 decodeMessages :: ByteString -> Either String [Message]
 decodeMessages = runGet (many get)
 -}
+
 main :: IO ()
 main = defaultMain []
-- 
cgit v1.2.3