From 9196d29faf9ad679c42c36e6baa4d46e7b3ca141 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 21 Mar 2007 05:52:11 +0100 Subject: GHC 6.4 compatibility. darcs-hash:20070321045211-a5988-47f59be9b08177f2252f656e8435b23054ffde3d --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') 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 -- cgit v1.2.3