From da9d918dc3ccf11f10c5fedb30f5fdc5c7be5022 Mon Sep 17 00:00:00 2001 From: Geoff Reedy Date: Mon, 22 Jun 2009 05:56:49 +0200 Subject: track currently processing event Ignore-this: da2e82037548ab176a4333056c94a07a darcs-hash:20090622035649-8d81a-de848ab7c732ae633b5c21333370d5aca43bf939.gz --- XMonad/Core.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'XMonad/Core.hs') diff --git a/XMonad/Core.hs b/XMonad/Core.hs index cc3bf3e..b8ba1b1 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -86,6 +86,8 @@ data XConf = XConf , mousePosition :: !(Maybe (Position, Position)) -- ^ position of the mouse according to -- the event currently being processed + , currentEvent :: !(Maybe Event) + -- ^ event currently being processed } -- todo, better name -- cgit v1.2.3