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 | 9196d29faf9ad679c42c36e6baa4d46e7b3ca141 (patch) | |
| tree | 0da3f80bab4a16dd857867066dc445abad869b7a | |
| parent | 7f5dc0748300e07101fc306ec6b447a35e878f54 (diff) | |
| download | metatile-9196d29faf9ad679c42c36e6baa4d46e7b3ca141.tar metatile-9196d29faf9ad679c42c36e6baa4d46e7b3ca141.zip | |
GHC 6.4 compatibility.
darcs-hash:20070321045211-a5988-47f59be9b08177f2252f656e8435b23054ffde3d
| -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 |