diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-21 05:52:11 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-21 05:52:11 +0100 |
commit | 7baccc5cffb1800cd31843392256130f02a02e79 (patch) | |
tree | 0da3f80bab4a16dd857867066dc445abad869b7a | |
parent | ca4ed52d171a0f5637fee323f19ef0f618b49c6b (diff) | |
download | xmonad-7baccc5cffb1800cd31843392256130f02a02e79.tar.gz xmonad-7baccc5cffb1800cd31843392256130f02a02e79.tar.xz xmonad-7baccc5cffb1800cd31843392256130f02a02e79.zip |
GHC 6.4 compatibility.
darcs-hash:20070321045211-a5988-47f59be9b08177f2252f656e8435b23054ffde3d.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 4 | ||||
-rw-r--r-- | xmonad.cabal | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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 |