base >= 2.0 means we can use forM_

darcs-hash:20070604050914-a5988-600a4ba6f2f294b0ce56b16e8887d493789f29c7

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 490da13..61f8781 100644
--- a/Main.hs
+++ b/Main.hs
@@ -99,7 +99,7 @@ scan dpy rootw = do
 grabKeys :: Display -> Window -> IO ()
 grabKeys dpy rootw = do
     ungrabKey dpy anyKey anyModifier rootw
-    flip mapM_ (M.keys keys) $ \(mask,sym) -> do
+    forM_ (M.keys keys) $ \(mask,sym) -> do
          kc <- keysymToKeycode dpy sym
          -- "If the specified KeySym is not defined for any KeyCode,
          -- XKeysymToKeycode() returns zero."