diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-19 08:31:04 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-19 08:31:04 +0200 |
| commit | dbca5b4413936ecfbd7bd15890fdc7e808a15642 (patch) | |
| tree | e8fe9e475ca9919f67f3a8d4b80a4497aee32f41 /Operations.hs | |
| parent | 72823599216b6ba2012cf31d2d9ace3de24623f2 (diff) | |
| download | metatile-dbca5b4413936ecfbd7bd15890fdc7e808a15642.tar metatile-dbca5b4413936ecfbd7bd15890fdc7e808a15642.zip | |
I prefer fmap over liftM
darcs-hash:20071019063104-a5988-ec68450cc37c85f447ac6655df49116c78b65e70
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
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 |