From 06632cd0a3089b9697bf7ceefa2dc92d3ec331fd Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 17 Feb 2008 13:44:53 +0100
Subject: Prompt.Theme: use mkComplFunFromList' to generate completions

darcs-hash:20080217124453-32816-d4fb1ea697f61ea428d2d849eaea741ba5d2c539.gz
---
 XMonad/Prompt/Theme.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs
index 89063a5..394ff4a 100644
--- a/XMonad/Prompt/Theme.hs
+++ b/XMonad/Prompt/Theme.hs
@@ -48,7 +48,7 @@ instance XPrompt ThemePrompt where
     nextCompletion      _ = getNextCompletion
 
 themePrompt :: XPConfig -> X ()
-themePrompt c = mkXPrompt ThemePrompt c (const . return . map ppThemeInfo $ listOfThemes) changeTheme
+themePrompt c = mkXPrompt ThemePrompt c (mkComplFunFromList' . map ppThemeInfo $ listOfThemes) changeTheme
     where changeTheme t = sendMessage . SetTheme . fromMaybe defaultTheme $ M.lookup t mapOfThemes
 
 mapOfThemes :: M.Map String Theme
-- 
cgit v1.2.3