diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 11:42:54 +0200 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 11:42:54 +0200 |
commit | 047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de (patch) | |
tree | 3654565fe80e31d13223c8c62460cebefb6be437 | |
parent | b5f484cc7e943509fd0ebddb83d4ca988ecb1f58 (diff) | |
download | XMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.tar.gz XMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.tar.xz XMonadContrib-047b5f2e0421e1f4b5fcbc6c3b12ef574e7dd2de.zip |
Forgot to enable historyFilter :(
darcs-hash:20080921094254-25a6b-12e7274203ac50d109e2636f0b10531c5707900a.gz
-rw-r--r-- | XMonad/Prompt.hs | 3 |
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 |