diff options
| author | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-14 22:55:56 +0100 |
|---|---|---|
| committer | Daniel Schoepe <asgaroth_@gmx.de> | 2009-01-14 22:55:56 +0100 |
| commit | 0a31b9715f7d0e314adfc41dd80c2e24edb17b49 (patch) | |
| tree | 81944cbc21455534b8b3a4a8ba4f7f66f937b0e9 /XMonad | |
| parent | 80b835ac57c7dba6d86ac803baa784814b3c300b (diff) | |
| download | xmonad-0a31b9715f7d0e314adfc41dd80c2e24edb17b49.tar.gz xmonad-0a31b9715f7d0e314adfc41dd80c2e24edb17b49.tar.xz xmonad-0a31b9715f7d0e314adfc41dd80c2e24edb17b49.zip | |
Replaced custom forever_ by library function
darcs-hash:20090114215556-cb1c6-babaac0e9aeceba8006995aa1ae15d63cb35c724.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Main.hsc | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index f68ebf5..ed3fc59 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -155,12 +155,10 @@ xmonad initxmc = do userCode $ startupHook initxmc -- 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 () where - forever_ a = a >> forever_ a - -- if the event gives us the position of the pointer, set mousePosition prehandle e = let mouse = do guard (ev_event_type e `elem` evs) return (fromIntegral (ev_x_root e) |