XEvents code cleanup

darcs-hash:20070717160756-d6583-501e3bd632b7d3d37a8695231333fc69054e0398.gz

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