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 /Main.hs | |
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 |
1 files changed, 2 insertions, 2 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 |