From c291f252c6659a13b3075d711ff3e86ac559e757 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <daniel.schoepe@gmail.com>
Date: Thu, 1 Oct 2009 20:04:02 +0200
Subject: Use default handler in XMonad.Prompt.eventLoop

Ignore-this: 10c9c856aec515d57f0f0a42bc727f1

darcs-hash:20091001180402-7f603-e89705aa2a2e930ec3c3fc9a387efe03a3f54d2c.gz
---
 XMonad/Prompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 56f5770..387517a 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -327,7 +327,7 @@ eventLoop action = do
                         else return (Nothing, "")
               return (ks,s,ev)
   action (fromMaybe xK_VoidSymbol keysym,string) event
-  gets done >>= flip unless (eventLoop action)
+  gets done >>= flip unless (eventLoop handle)
 
 -- | Removes numlock and capslock from a keymask.
 -- Duplicate of cleanMask from core, but in the
-- 
cgit v1.2.3