cleanups on various module imports

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

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index 5d987e815bcac57b36f1d3be85d10ead30422256..bf1153bd1063a7182e49f2d1ee2b641ae9ca63e9 100644 (file)
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -20,9 +20,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module FuncTorrent.Peer
-    (Peer(..),
-     PieceMap,
-     handlePeerMsgs
+    (handlePeerMsgs
     ) where
 
 import Prelude hiding (lookup, concat, replicate, splitAt, take, drop)
@@ -53,7 +51,7 @@ havePiece pm index =
   dlstate (pm ! index) == Have
 
 connectToPeer :: Peer -> IO Handle
-connectToPeer (Peer _ ip port) = do
+connectToPeer (Peer ip port) = do
   h <- connectTo ip (PortNumber (fromIntegral port))
   hSetBuffering h LineBuffering
   return h
@@ -167,7 +165,7 @@ msgLoop pieceStatus msgchannel = do
         NotInterestedMsg -> do
           modify (\st' -> st' {heInterested = False})
           msgLoop pieceStatus msgchannel
-        CancelMsg _ _ _ -> -- check if valid index, begin, length
+        CancelMsg {} -> -- check if valid index, begin, length
           msgLoop pieceStatus msgchannel
         PortMsg _ ->
           msgLoop pieceStatus msgchannel
@@ -176,7 +174,7 @@ msgLoop pieceStatus msgchannel = do
           let pieceStatus' = updatePieceAvailability pieceStatus p [idx]
           msgLoop pieceStatus' msgchannel
         _ -> do
-          liftIO $ putStrLn $ ".. not doing anything with the msg"
+          liftIO $ putStrLn ".. not doing anything with the msg"
           msgLoop pieceStatus msgchannel
         -- No need to handle PieceMsg and RequestMsg here.