summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-17 18:07:56 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-17 18:07:56 +0200
commit3c94dd183668a25e0836bc6d2dc2bdcd4386f916 (patch)
treec8dd51863a9e86c2c96de28c774da7d1b8e2f07b
parentdf7761651e426bc874b30cb52fb4205543031a91 (diff)
downloadxmobar-3c94dd183668a25e0836bc6d2dc2bdcd4386f916.tar.gz
xmobar-3c94dd183668a25e0836bc6d2dc2bdcd4386f916.tar.bz2
XEvents code cleanup
darcs-hash:20070717160756-d6583-501e3bd632b7d3d37a8695231333fc69054e0398.gz
-rw-r--r--Xmobar.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 43bf666..4cf53b3 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -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