diff options
-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 |