From 3c94dd183668a25e0836bc6d2dc2bdcd4386f916 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Tue, 17 Jul 2007 18:07:56 +0200
Subject: XEvents code cleanup

darcs-hash:20070717160756-d6583-501e3bd632b7d3d37a8695231333fc69054e0398.gz
---
 Xmobar.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Xmobar.hs')

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
-- 
cgit v1.2.3