~ Fix Wall suggestions.

3 files changed, 2 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/PeerWire/ClientInfo.hs b/src/Network/BitTorrent/PeerWire/ClientInfo.hs
index 3b60f75c..e2da4d3b 100644
--- a/src/Network/BitTorrent/PeerWire/ClientInfo.hs
+++ b/src/Network/BitTorrent/PeerWire/ClientInfo.hs
@@ -190,7 +190,7 @@ clientInfo :: PeerID -> ClientInfo
 clientInfo pid = either (const unknownClient) id $ runGet getCI (getPeerID pid)
   where -- TODO other styles
     getCI = do
-      getWord8
+      _ <- getWord8
       ClientInfo <$> (parseImpl <$> getByteString 2) <*> getByteString 4
 
 
diff --git a/src/Network/BitTorrent/PeerWire/Message.hs b/src/Network/BitTorrent/PeerWire/Message.hs
index c98c9808..e833ba03 100644
--- a/src/Network/BitTorrent/PeerWire/Message.hs
+++ b/src/Network/BitTorrent/PeerWire/Message.hs
@@ -77,7 +77,7 @@ data Message = KeepAlive
 instance Serialize Message where
   get = do
     len <- getInt
-    lookAhead $ ensure len
+    _   <- lookAhead $ ensure len
     if len == 0 then return KeepAlive
       else do
         mid <- getWord8
diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index 616e760b..c0e84c24 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -37,7 +37,6 @@ import Control.Applicative
 import Control.Monad
 import Data.Char as Char
 import Data.Word (Word32)
-import Data.List as L
 import Data.Map  as M
 import Data.Monoid
 import Data.BEncode