1 files changed, 1 insertions, 1 deletions

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