aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2008-09-21 11:42:54 +0200
committerSpencer Janssen <spencerjanssen@gmail.com>2008-09-21 11:42:54 +0200
commit047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de (patch)
tree3654565fe80e31d13223c8c62460cebefb6be437 /XMonad
parentb5f484cc7e943509fd0ebddb83d4ca988ecb1f58 (diff)
downloadXMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.tar.gz
XMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.tar.xz
XMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.zip
Forgot to enable historyFilter :(
darcs-hash:20080921094254-25a6b-12e7274203ac50d109e2636f0b10531c5707900a.gz
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