diff options
| author | jao <jao@gnu.org> | 2018-11-30 05:27:53 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-30 05:27:53 +0000 |
| commit | a9df65ad952251d2f0c837add0cfe4626d321bf8 (patch) | |
| tree | 14111b70e96ab310c6d70700f32f8966059adb70 /src/Xmobar/App/EventLoop.hs | |
| parent | fa681551411e8c74e6462f6997c37fcc38335d4d (diff) | |
| download | xmobar-a9df65ad952251d2f0c837add0cfe4626d321bf8.tar.gz xmobar-a9df65ad952251d2f0c837add0cfe4626d321bf8.tar.bz2 | |
Self-compilation a la xmonad
Diffstat (limited to 'src/Xmobar/App/EventLoop.hs')
| -rw-r--r-- | src/Xmobar/App/EventLoop.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Xmobar/App/EventLoop.hs b/src/Xmobar/App/EventLoop.hs index 0d96578..7a76ee6 100644 --- a/src/Xmobar/App/EventLoop.hs +++ b/src/Xmobar/App/EventLoop.hs @@ -99,7 +99,8 @@ startLoop xcfg@(XConf _ _ w _ _ _ _) sig vs = do ConfigureEvent {} -> atomically $ putTMVar signal Reposition ExposeEvent {} -> atomically $ putTMVar signal Wakeup RRScreenChangeNotifyEvent {} -> atomically $ putTMVar signal Reposition - ButtonEvent {} -> atomically $ putTMVar signal (Action (ev_button ev) (fi $ ev_x ev)) + ButtonEvent {} -> atomically $ + putTMVar signal (Action (ev_button ev) (fi $ ev_x ev)) _ -> return () -- | Send signal to eventLoop every time a var is updated |