GHC 6.4 compatibility.

darcs-hash:20070321045211-a5988-47f59be9b08177f2252f656e8435b23054ffde3d

1 files changed, 2 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index 9e52c77..26616b2 100644
--- a/Main.hs
+++ b/Main.hs
@@ -140,7 +140,7 @@ scan dpy rootw = do
 grabKeys :: Display -> Window -> IO ()
 grabKeys dpy rootw = do
     ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw
-    forM_ (M.keys keys) $ \(mask,sym) -> do
+    flip mapM_ (M.keys keys) $ \(mask,sym) -> do
          kc <- keysymToKeycode dpy sym
          mapM_ (grab kc) [mask, mask .|. numlockMask] -- note: no numlock
   where
@@ -244,7 +244,7 @@ refresh = do
     d <- gets display
     l <- gets layout
     let move w a b c e = io $ moveResizeWindow d w a b c e
-    forM_ (M.assocs ws2sc) $ \(n, scn) -> do
+    flip mapM_ (M.assocs ws2sc) $ \(n, scn) -> do
         let sc = xinesc !! scn
             sx = rect_x sc
             sy = rect_y sc