From 047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Sun, 21 Sep 2008 11:42:54 +0200
Subject: Forgot to enable historyFilter :(
darcs-hash:20080921094254-25a6b-12e7274203ac50d109e2636f0b10531c5707900a.gz
---
XMonad/Prompt.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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
--
cgit v1.2.3