4 files changed, 3 insertions, 4 deletions

diff --git a/network-bittorrent.cabal b/network-bittorrent.cabal
index 6494ae6a..a26068f6 100644
--- a/network-bittorrent.cabal
+++ b/network-bittorrent.cabal
@@ -68,7 +68,7 @@ library
 
   extensions:          PatternGuards
   hs-source-dirs:      src
---  ghc-options:         -Wall
+  ghc-options:         -Wall
 
 
 test-suite info-hash
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