summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-10-06 12:35:30 +0200
committerDon Stewart <dons@galois.com>2007-10-06 12:35:30 +0200
commitbebb2992440a0ba299c03ecdec2e99d247510c7b (patch)
tree661203e5d85bbc1b7facfc53f69e6594218ec624
parent4fb061f7cf5399b6cfd7c9ea0eb5ce5ebd3fe51c (diff)
downloadmetatile-bebb2992440a0ba299c03ecdec2e99d247510c7b.tar
metatile-bebb2992440a0ba299c03ecdec2e99d247510c7b.zip
avoid name class with forever in 6.8
darcs-hash:20071006103530-cba2c-ec2e63665fe61abdad6ab10862b9f442943a4530
-rw-r--r--Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index db4e0f3..f8de8ea 100644
--- a/Main.hs
+++ b/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