From e278bc588af81b01b49511fe69d4a3013a338e19 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 26 Apr 2013 05:44:12 +0400
Subject: ~ Fix Wall suggestions.

---
 src/Network/BitTorrent/PeerWire/ClientInfo.hs | 2 +-
 src/Network/BitTorrent/PeerWire/Message.hs    | 2 +-
 src/Network/BitTorrent/Tracker/Protocol.hs    | 1 -
 3 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent')

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
-- 
cgit v1.2.3