From 3e13d74a1f85dfd60eb2f1143e4a999bfd70d964 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 16 Feb 2008 14:39:49 +0100
Subject: Prompt.XMonad: use mkComplFunFromList' to get all the completions
with an empty command line
darcs-hash:20080216133949-32816-6a80869c750b424462ac2a4639a47574cfe5d61e.gz
---
XMonad/Prompt/XMonad.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/XMonad/Prompt/XMonad.hs b/XMonad/Prompt/XMonad.hs
index 992c011..ee99f0e 100644
--- a/XMonad/Prompt/XMonad.hs
+++ b/XMonad/Prompt/XMonad.hs
@@ -44,8 +44,8 @@ instance XPrompt XMonad where
xmonadPrompt :: XPConfig -> X ()
xmonadPrompt c = do
cmds <- defaultCommands
- mkXPrompt XMonad c (mkComplFunFromList (map fst cmds)) runCommand'
+ mkXPrompt XMonad c (mkComplFunFromList' (map fst cmds)) runCommand'
-- | An xmonad prompt with a custom command list
xmonadPromptC :: [(String, X ())] -> XPConfig -> X ()
-xmonadPromptC commands c = mkXPrompt XMonad c (mkComplFunFromList (map fst commands)) runCommand'
+xmonadPromptC commands c = mkXPrompt XMonad c (mkComplFunFromList' (map fst commands)) runCommand'
--
cgit v1.2.3