From 6ab5263dc03d2a37cf3fc5ed361713a696fe8417 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 09:50:37 +0100
Subject: Port XMonadPrompt

darcs-hash:20071101085037-a5988-a555a1f673abeb42d770488c5d5a579517bc5869.gz
---
 XMonadPrompt.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
index 5362e60..d60fe67 100644
--- a/XMonadPrompt.hs
+++ b/XMonadPrompt.hs
@@ -45,7 +45,9 @@ instance XPrompt XMonad where
     showXPrompt XMonad = "XMonad: "
 
 xmonadPrompt :: XPConfig -> X ()
-xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'
+xmonadPrompt c = do
+    cmds <- defaultCommands
+    mkXPrompt XMonad c (mkComplFunFromList (map fst cmds)) runCommand'
 
 -- xmonad prompt with custom command list
 xmonadPromptC :: [(String, X ())] -> XPConfig -> X ()
-- 
cgit v1.2.3