From bebb2992440a0ba299c03ecdec2e99d247510c7b Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sat, 6 Oct 2007 12:35:30 +0200 Subject: avoid name class with forever in 6.8 darcs-hash:20071006103530-cba2c-ec2e63665fe61abdad6ab10862b9f442943a4530 --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') 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 -- cgit v1.2.3