mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-25 09:11:52 -07:00
avoid name class with forever in 6.8
This commit is contained in:
4
Main.hs
4
Main.hs
@@ -101,9 +101,9 @@ main = do
|
|||||||
mapM_ manage ws
|
mapM_ manage ws
|
||||||
|
|
||||||
-- main loop, for all you HOF/recursion fans out there.
|
-- 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
|
-- IO stuff. Doesn't require any X state
|
||||||
|
Reference in New Issue
Block a user