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

Fix -Woperator-whitespace-ext-conflict warnings

Browse Source
This commit is contained in:
Tomas Janousek
2021-10-31 17:36:36 +00:00
parent e252cc75b1
commit 850a3c245e
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/FloatSnap.hs
View File

@@ -285,7 +285,7 @@ getSnap horiz collidedist d w = do
screen <- W.current <$> gets windowset screen <- W.current <$> gets windowset
let sr = screenRect $ W.screenDetail screen let sr = screenRect $ W.screenDetail screen
wl = W.integrate' . W.stack $ W.workspace screen wl = W.integrate' . W.stack $ W.workspace screen
gr <- ($sr) <$> calcGap (S.fromList [minBound .. maxBound]) gr <- ($ sr) <$> calcGap (S.fromList [minBound .. maxBound])
wla <- filter (collides wa) <$> io (mapM (getWindowAttributes d) $ filter (/=w) wl) wla <- filter (collides wa) <$> io (mapM (getWindowAttributes d) $ filter (/=w) wl)
return ( neighbours (back wa sr gr wla) (wpos wa) return ( neighbours (back wa sr gr wla) (wpos wa)

2
XMonad/Layout/Renamed.hs
View File

@@ -71,7 +71,7 @@ apply (Append s') s = s ++ s'
apply (Prepend s') s = s' ++ s apply (Prepend s') s = s' ++ s
apply (AppendWords s') s = unwords $ words s ++ [s'] apply (AppendWords s') s = unwords $ words s ++ [s']
apply (PrependWords s') s = unwords $ s' : words s apply (PrependWords s') s = unwords $ s' : words s
apply (Chain rs) s = ($s) $ foldr (flip (.) . apply) id rs apply (Chain rs) s = ($ s) $ foldr (flip (.) . apply) id rs
instance LayoutModifier Rename a where instance LayoutModifier Rename a where
modifyDescription r l = apply r (description l) modifyDescription r l = apply r (description l)