apply hlint recommendations

Author: dcousens

Diff for: XMonad/Prompt.hs

@@ -1691,17 +1691,17 @@ getHistoryFile :: FilePath -> FilePath
 getHistoryFile cachedir = cachedir ++ "/prompt-history"
 
 readHistory :: XPConfig -> FilePath -> IO History
-readHistory (XPC { historySize = 0 }) cachedir = return emptyHistory
-readHistory conf cachedir = readHist `E.catch` \(SomeException _) -> return emptyHistory
+readHistory (XPC { historySize = 0 }) _ = return emptyHistory
+readHistory _ cachedir = readHist `E.catch` \(SomeException _) -> return emptyHistory
  where
     readHist = do
         let path = getHistoryFile cachedir
         xs <- withFile path ReadMode hGetLine
         readIO xs
 
 writeHistory :: XPConfig -> FilePath -> History -> IO ()
-writeHistory (XPC { historySize = 0 }) cachedir hist = return ()
-writeHistory conf cachedir hist = do
+writeHistory (XPC { historySize = 0 }) _ _ = return ()
+writeHistory _ cachedir hist = do
   let path = getHistoryFile cachedir
       filtered = M.filter (not . null) hist
   writeFile path (show filtered) `E.catch` \(SomeException e) ->