diff options
| -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 |