hlint

Author: dcousens

Diff for: XMonad/Prompt.hs

@@ -1811,7 +1811,7 @@ historyCompletionP p = do
     pure $ \x ->
         let toComplList = deleteConsecutive . filter (isInfixOf x) . M.foldr (++) []
 --          in toComplList . M.filterWithKey (const . p) <$> (historyRead conf cd)
-         in toComplList . M.filterWithKey (const . p) <$> (readHistory cd)
+         in toComplList . M.filterWithKey (const . p) <$> readHistory cd
 
 -- | Sort a list and remove duplicates. Like 'deleteAllDuplicates', but trades off
 --   laziness and stability for efficiency.