From 506a524dbb57a9f7fc9c43f989b8cff4bd595cac Mon Sep 17 00:00:00 2001
From: Mike Lundy <mike@fluffypenguin.org>
Date: Mon, 21 Dec 2009 03:54:08 +0100
Subject: Add a search predicate option to XMonad.Prompt

Ignore-this: 8e8804eeb9650d38bc225e15887310da

darcs-hash:20091221025408-88b46-c700aa5d2fdcad96495c23e53f51496be36cbc7c.gz
---
 XMonad/Prompt/Window.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XMonad/Prompt/Window.hs')

diff --git a/XMonad/Prompt/Window.hs b/XMonad/Prompt/Window.hs
index 0f0ed2a..a5b6aeb 100644
--- a/XMonad/Prompt/Window.hs
+++ b/XMonad/Prompt/Window.hs
@@ -24,7 +24,6 @@ module XMonad.Prompt.Window
     ) where
 
 import qualified Data.Map as M
-import Data.List
 
 import qualified XMonad.StackSet as W
 import XMonad
@@ -89,7 +88,7 @@ doPrompt t c = do
       bringAction      = winAction bringWindow
       bringCopyAction  = winAction bringCopyWindow
 
-      compList m s = return . filter (isPrefixOf s) . map fst . M.toList $ m
+      compList m s = return . filter (searchPredicate c s) . map fst . M.toList $ m
 
 
 -- | Brings a copy of the specified window into the current workspace.
-- 
cgit v1.2.3