summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDaniel Schoepe <asgaroth_@gmx.de>2009-01-14 22:55:56 +0100
committerDaniel Schoepe <asgaroth_@gmx.de>2009-01-14 22:55:56 +0100
commitab53a5afa7d32b656034ee8ec035a6f14b1332b8 (patch)
tree81944cbc21455534b8b3a4a8ba4f7f66f937b0e9 /XMonad
parent1da393f20830d154d01086136371b001846c9a9e (diff)
downloadmetatile-ab53a5afa7d32b656034ee8ec035a6f14b1332b8.tar
metatile-ab53a5afa7d32b656034ee8ec035a6f14b1332b8.zip
Replaced custom forever_ by library function
darcs-hash:20090114215556-cb1c6-babaac0e9aeceba8006995aa1ae15d63cb35c724
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Main.hsc4
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)