diff --git a/README.md b/README.md
index 5ae8b7a..3d5ee14 100644
--- a/README.md
+++ b/README.md
@@ -13,8 +13,8 @@ your mail server settings and then loading the file in ghci and type
 
   ghci -hide-package monads-fd example/smtpMimeMail.hs
   main
-  
-If you encounter problems and want to debug the ghci 
+
+If you encounter problems and want to debug the ghci
 debugger works well:
 
   :set -fbreak-on-exception
diff --git a/src/Network/HaskellNet/IMAP.hs b/src/Network/HaskellNet/IMAP.hs
index 790588a..cf1a9a0 100644
--- a/src/Network/HaskellNet/IMAP.hs
+++ b/src/Network/HaskellNet/IMAP.hs
@@ -452,7 +452,7 @@ bsPutCrLf :: BSStream -> ByteString -> IO ()
 bsPutCrLf h s = bsPut h s >> bsPut h crlf >> bsFlush h
 
 lookup' :: String -> [(String, b)] -> Maybe b
-lookup' q [] = Nothing
+lookup' _ [] = Nothing
 lookup' q ((k,v):xs) | q == lastWord k  = return v
                      | otherwise        = lookup' q xs
     where