mirror of
https://github.com/xmonad/xmonad.git
synced 2025-05-19 00:20:22 -07:00
avoid name class with forever in 6.8
This commit is contained in:
parent
6294e6adf5
commit
053f1adb7c
4
Main.hs
4
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
|
||||
|
Loading…
x
Reference in New Issue
Block a user