From 9196d29faf9ad679c42c36e6baa4d46e7b3ca141 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 21 Mar 2007 05:52:11 +0100
Subject: GHC 6.4 compatibility.

darcs-hash:20070321045211-a5988-47f59be9b08177f2252f656e8435b23054ffde3d
---
 Main.hs      | 4 ++--
 xmonad.cabal | 2 +-
 2 files changed, 3 insertions(+), 3 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
diff --git a/xmonad.cabal b/xmonad.cabal
index d0f11d2..7b81a16 100644
--- a/xmonad.cabal
+++ b/xmonad.cabal
@@ -7,7 +7,7 @@ license:        BSD3
 license-file:   LICENSE
 author:         Spencer Janssen
 maintainer:     sjanssen@cse.unl.edu
-build-depends:  base==2.0, X11>=1.1, X11-extras==0.0, mtl==1.0, unix>=1.0
+build-depends:  base>=1.0, X11>=1.1, X11-extras==0.0, mtl==1.0, unix>=1.0
 
 executable:     xmonad
 main-is:        Main.hs
-- 
cgit v1.2.3