From ab8f7703e8f3821e119094d75f86ad0ee7a3f02e Mon Sep 17 00:00:00 2001
From: "quentin.moser" <quentin.moser@unifr.ch>
Date: Tue, 27 Jan 2009 19:41:45 +0100
Subject: XMonad.Prompt autocompletion fix

Ignore-this: 635cbf6420722a4edef1ae9c40b36e1b

darcs-hash:20090127184145-5ccef-5ab96edbaf04e3e41790ca9550d6bae47639422e.gz
---
 XMonad/Prompt.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index b624ad8..1a0edb3 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -391,14 +391,16 @@ keyPressHandle mask (ks,_)
     where
       go   = updateWindows >> eventLoop handle
       quit = flushString >> setSuccess False -- quit and discard everything
-      setSuccess b = modify $ \s -> s { successful = b }
 -- insert a character
 keyPressHandle _ (_,s)
     | s == "" = eventLoop handle
     | otherwise = do insertString (decodeInput s)
                      updateWindows
                      completed <- tryAutoComplete
-                     unless completed $ eventLoop handle
+                     if completed then setSuccess True else eventLoop handle
+
+setSuccess :: Bool -> XP ()
+setSuccess b = modify $ \s -> s { successful = b }
 
 -- KeyPress and State
 
-- 
cgit v1.2.3