aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XMonad/Prompt.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index acea7bb..e25997d 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -250,7 +250,8 @@ mkXPromptWithReturn t conf compl action = do
if successful st'
then do
liftIO $ writeHistory $ Map.insertWith
- (\xs ys -> take (historySize conf) $ xs ++ ys)
+ (\xs ys -> take (historySize conf)
+ . historyFilter conf $ xs ++ ys)
(showXPrompt t) [command st'] hist
Just <$> action (command st')
else return Nothing