twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-30 19:51:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Replace 'fmap f $ fa' with 'f <$> fa', apply functor laws

Browse Source
This commit is contained in:
slotThe
2019-10-08 11:13:02 +02:00
parent e8da66e575
commit 22aebcb26d
16 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/FixedColumn.hs
View File

@@ -84,7 +84,7 @@ instance LayoutClass FixedColumn Window where
widthCols :: Int -> Int -> Window -> X Int
widthCols inc n w = withDisplay $ \d -> io $ do
sh <- getWMNormalHints d w
bw <- fmap (fromIntegral . wa_border_width) $ getWindowAttributes d w
bw <- fromIntegral . wa_border_width <$> getWindowAttributes d w
let widthHint f = f sh >>= return . fromIntegral . fst
oneCol = fromMaybe inc $ widthHint sh_resize_inc
base = fromMaybe 0 $ widthHint sh_base_size