summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-19 08:31:04 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-19 08:31:04 +0200
commitdbca5b4413936ecfbd7bd15890fdc7e808a15642 (patch)
treee8fe9e475ca9919f67f3a8d4b80a4497aee32f41
parent72823599216b6ba2012cf31d2d9ace3de24623f2 (diff)
downloadmetatile-dbca5b4413936ecfbd7bd15890fdc7e808a15642.tar
metatile-dbca5b4413936ecfbd7bd15890fdc7e808a15642.zip
I prefer fmap over liftM
darcs-hash:20071019063104-a5988-ec68450cc37c85f447ac6655df49116c78b65e70
-rw-r--r--Operations.hs2
1 files changed, 1 insertions, 1 deletions
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