avoid name class with forever in 6.8

This commit is contained in:
Don Stewart 2007-10-06 10:35:30 +00:00
parent 6294e6adf5
commit 053f1adb7c

View File

@ -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