Tracker: remove vestiges of the older code and module imports
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 3 Oct 2015 04:21:45 +0000 (09:51 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 3 Oct 2015 04:21:45 +0000 (09:51 +0530)
src/FuncTorrent/Tracker.hs

index 11cecd50cb6fd68af3da5d4c440027cc5014ac59..3926a12fa99862dded1c47fbc5dcc42dad0ba492 100644 (file)
@@ -8,8 +8,7 @@ module FuncTorrent.Tracker
 import Prelude hiding (lookup, splitAt)
 
 import Control.Concurrent (threadDelay)
-import Control.Concurrent.MVar (MVar, newEmptyMVar, newMVar, readMVar, putMVar, takeMVar)
-import Control.Monad.State
+import Control.Concurrent.MVar (MVar, newEmptyMVar, newMVar, readMVar, putMVar)
 import Data.ByteString (ByteString)
 import Data.ByteString.Char8 as BC (pack, unpack, splitAt)
 import Data.Char (chr)
@@ -123,9 +122,9 @@ mkArgs port peer_id up down m =
 
 trackerLoop :: PortNumber -> String -> Metainfo -> TState -> IO ByteString
 trackerLoop port peerId m st = do
-  up <- liftIO $ readMVar $ uploaded st
-  down <- liftIO $ readMVar $ downloaded st
-  resp <- liftIO $ sendGetRequest (head . announceList $ m) $ mkArgs port peerId up down m
+  up <- readMVar $ uploaded st
+  down <- readMVar $ downloaded st
+  resp <- sendGetRequest (head . announceList $ m) $ mkArgs port peerId up down m
   case decode resp of
     Left e -> return $ pack (show e)
     Right trackerInfo ->