From ab53a5afa7d32b656034ee8ec035a6f14b1332b8 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <asgaroth_@gmx.de>
Date: Wed, 14 Jan 2009 22:55:56 +0100
Subject: Replaced custom forever_ by library function

darcs-hash:20090114215556-cb1c6-babaac0e9aeceba8006995aa1ae15d63cb35c724
---
 XMonad/Main.hsc | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index f68ebf5..ed3fc59 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -155,12 +155,10 @@ xmonad initxmc = do
             userCode $ startupHook initxmc
 
             -- main loop, for all you HOF/recursion fans out there.
-            forever_ $ prehandle =<< io (nextEvent dpy e >> getEvent e)
+            forever $ prehandle =<< io (nextEvent dpy e >> getEvent e)
 
     return ()
       where
-        forever_ a = a >> forever_ a
-
         -- if the event gives us the position of the pointer, set mousePosition
         prehandle e = let mouse = do guard (ev_event_type e `elem` evs)
                                      return (fromIntegral (ev_x_root e)
-- 
cgit v1.2.3