avoid name class with forever in 6.8

darcs-hash:20071006103530-cba2c-ec2e63665fe61abdad6ab10862b9f442943a4530.gz

1 files changed, 2 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index db4e0f3..f8de8ea 100644
--- a/Main.hs
+++ b/Main.hs
@@ -101,9 +101,9 @@ main = do
             mapM_ manage ws
 
             -- main loop, for all you HOF/recursion fans out there.
-            forever $ handle =<< io (nextEvent dpy e >> getEvent e)
+            forever_ $ handle =<< io (nextEvent dpy e >> getEvent e)
 
-      where forever a = a >> forever a
+      where forever_ a = a >> forever_ a
 
 -- ---------------------------------------------------------------------
 -- IO stuff. Doesn't require any X state