From eb654735912f56ba92c4fc0e9447de99678918b0 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 19 Oct 2007 06:31:04 +0000 Subject: [PATCH] I prefer fmap over liftM --- Operations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Operations.hs b/Operations.hs index fa9c5b7..6081775 100644 --- a/Operations.hs +++ b/Operations.hs @@ -238,7 +238,7 @@ clearEvents mask = withDisplay $ \d -> io $ do -- rectangle, including its border. tileWindow :: Window -> Rectangle -> X () tileWindow w r = withDisplay $ \d -> do - bw <- (fromIntegral . wa_border_width) `liftM` io (getWindowAttributes d w) + bw <- (fromIntegral . wa_border_width) `fmap` io (getWindowAttributes d w) -- give all windows at least 1x1 pixels let least x | x <= bw*2 = 1 | otherwise = x - bw*2