remove a few reduntant stuff

[functorrent.git] / src / FuncTorrent / Peer.hs

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index 9ca40f41efb7d4f774b0b53dc24caa6bd1bb7b79..cfefb1132e69c69c5c13845aaca358085042207a 100644 (file)
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -1,7 +1,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 module FuncTorrent.Peer
     (Peer(..),
-     handlePeerMsgs
+     handlePeerMsgs,
+     bytesDownloaded
     ) where
 
 import Prelude hiding (lookup, concat, replicate, splitAt, take, filter)
@@ -32,7 +33,7 @@ data PState = PState { handle :: Handle
 type PeerState = State PState
 
 data PieceDlState = Pending
-                  | InProgress
+                  | Downloading
                   | Have
                   deriving (Show, Eq)
 
@@ -128,7 +129,7 @@ handlePeerMsgs p m peerId = do
       fileName = name (info m)
       pieceStatus = mkPieceMap numPieces pieceHash (splitNum fileLen pLen)
   createDummyFile fileName (fromIntegral fileLen)
-  (r, _) <- runStateT (msgLoop pieceStatus fileName) pstate
+  _ <- runStateT (msgLoop pieceStatus fileName) pstate
   return ()
 
 msgLoop :: PieceMap -> FilePath -> StateT PState IO ()
@@ -141,7 +142,7 @@ msgLoop pieceStatus file = do
       gets peer >>= (\p -> liftIO $ putStrLn $ "--> InterestedMsg to peer: " ++ show p)
       modify (\st -> st { meInterested = True })
       msgLoop pieceStatus file
-    PState { meInterested = True, heChoking = False } -> do
+    PState { meInterested = True, heChoking = False } ->
       case pickPiece pieceStatus of
         Nothing -> liftIO $ putStrLn "Nothing to download"
         Just workPiece -> do