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(-)

(limited to 'XMonad/Prompt.hs')

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