Remove unused argument in lookup' function

qnikst · Jan 7, 2015 · 2c5c37d · 2c5c37d
1 parent a6f70e0
commit 2c5c37d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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