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 | 5476da59b82cb2a85316125df2492ecec6ea52dc (patch) | |
tree | e8fe9e475ca9919f67f3a8d4b80a4497aee32f41 /Operations.hs | |
parent | de232bec7a62f6547313058962fc2ae93447106c (diff) | |
download | xmonad-5476da59b82cb2a85316125df2492ecec6ea52dc.tar.gz xmonad-5476da59b82cb2a85316125df2492ecec6ea52dc.tar.xz xmonad-5476da59b82cb2a85316125df2492ecec6ea52dc.zip |
I prefer fmap over liftM
darcs-hash:20071019063104-a5988-ec68450cc37c85f447ac6655df49116c78b65e70.gz
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 |