summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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