twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-11 02:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Replaced custom forever_ by library function

Browse Source
This commit is contained in:
Daniel Schoepe
2009-01-14 21:55:56 +00:00
parent 8cd66aa380
commit 17799f131a
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Main.hsc
View File

@@ -155,12 +155,10 @@ xmonad initxmc = do
userCode $ startupHook initxmc userCode $ startupHook initxmc
-- main loop, for all you HOF/recursion fans out there. -- main loop, for all you HOF/recursion fans out there.
forever_ $ prehandle =<< io (nextEvent dpy e >> getEvent e) forever $ prehandle =<< io (nextEvent dpy e >> getEvent e)
return () return ()
where where
forever_ a = a >> forever_ a
-- if the event gives us the position of the pointer, set mousePosition -- if the event gives us the position of the pointer, set mousePosition
prehandle e = let mouse = do guard (ev_event_type e `elem` evs) prehandle e = let mouse = do guard (ev_event_type e `elem` evs)
return (fromIntegral (ev_x_root e) return (fromIntegral (ev_x_root e)