twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-26 09:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

I prefer fmap over liftM

Browse Source
This commit is contained in:
Spencer Janssen
2007-10-19 06:31:04 +00:00
parent c734586275
commit eb65473591
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Operations.hs
View File

@@ -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