diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-17 18:07:56 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-17 18:07:56 +0200 |
| commit | 3c94dd183668a25e0836bc6d2dc2bdcd4386f916 (patch) | |
| tree | c8dd51863a9e86c2c96de28c774da7d1b8e2f07b /Xmobar.hs | |
| parent | df7761651e426bc874b30cb52fb4205543031a91 (diff) | |
| download | xmobar-3c94dd183668a25e0836bc6d2dc2bdcd4386f916.tar.gz xmobar-3c94dd183668a25e0836bc6d2dc2bdcd4386f916.tar.bz2 | |
XEvents code cleanup
darcs-hash:20070717160756-d6583-501e3bd632b7d3d37a8695231333fc69054e0398.gz
Diffstat (limited to 'Xmobar.hs')
| -rw-r--r-- | Xmobar.hs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -81,10 +81,9 @@ eventLoop = do c <- ask s <- get io $ forkIO $ sendUpdateEvent (display s) (window s) (refresh c) - action <- io $ allocaXEvent $ \e -> - do nextEvent (display s) e - return updateWin - action + io $ allocaXEvent $ \e -> + nextEvent (display s) e + updateWin eventLoop -- | The function to create the initial window |