diff options
author | Geoff Reedy <geoff@programmer-monk.net> | 2009-06-22 05:56:49 +0200 |
---|---|---|
committer | Geoff Reedy <geoff@programmer-monk.net> | 2009-06-22 05:56:49 +0200 |
commit | dadaf8035b28b384d3055a21535569ba738cd493 (patch) | |
tree | 5f4ab36d9773bffe0b4c46bd9c58d3ed36f8cef0 /XMonad/Core.hs | |
parent | 84dbdbd36acde9a9b31b99976858895bc3255298 (diff) | |
download | metatile-dadaf8035b28b384d3055a21535569ba738cd493.tar metatile-dadaf8035b28b384d3055a21535569ba738cd493.zip |
track currently processing event
Ignore-this: da2e82037548ab176a4333056c94a07a
darcs-hash:20090622035649-8d81a-de848ab7c732ae633b5c21333370d5aca43bf939
Diffstat (limited to 'XMonad/Core.hs')
-rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |