From 18bc30e96d2e5b054f6f59d1130bffcfad735192 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 4 Jun 2007 07:09:14 +0200 Subject: base > darcs-hash:20070604050914-a5988-600a4ba6f2f294b0ce56b16e8887d493789f29c7.gz --- Operations.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index f419edf..3d2e4d1 100644 --- a/Operations.hs +++ b/Operations.hs @@ -160,7 +160,7 @@ refresh = do d <- asks display -- for each workspace, layout the currently visible workspaces - (`mapM_` (W.current ws : W.visible ws)) $ \w -> do + forM_ (W.current ws : W.visible ws) $ \w -> do let n = W.tag (W.workspace w) this = W.view n ws Just l = fmap fst $ M.lookup n fls @@ -177,7 +177,7 @@ refresh = do -- now the floating windows: -- move/resize the floating windows, if there are any - (`mapM_` flt) $ \fw -> whenJust (M.lookup fw (W.floating ws)) $ + forM_ flt $ \fw -> whenJust (M.lookup fw (W.floating ws)) $ \(W.RationalRect rx ry rw rh) -> do let Rectangle px py pw ph = genericIndex xinesc (W.screen w) tileWindow fw $ Rectangle @@ -250,7 +250,7 @@ rescreen = do setButtonGrab :: Bool -> Window -> X () setButtonGrab grab w = withDisplay $ \d -> io $ if grab - then flip mapM_ [button1, button2, button3] $ \b -> + then forM_ [button1, button2, button3] $ \b -> grabButton d b anyModifier w False buttonPressMask grabModeAsync grabModeSync none none else ungrabButton d anyButton anyModifier w @@ -281,8 +281,8 @@ setFocusX w = withWindowSet $ \ws -> do XConf { display = dpy , normalBorder = nbc, focusedBorder = fbc } <- ask -- clear mouse button grab and border on other windows - (`mapM_` (W.current ws : W.visible ws)) $ \wk -> do - (`mapM_` (W.index (W.view (W.tag (W.workspace wk)) ws))) $ \otherw -> do + forM_ (W.current ws : W.visible ws) $ \wk -> do + forM_ (W.index (W.view (W.tag (W.workspace wk)) ws)) $ \otherw -> do setButtonGrab True otherw io $ setWindowBorder dpy otherw (color_pixel nbc) -- cgit v1.2.3