ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF clean up code

This commit is contained in:
Nathan Dwarshuis 2022-08-06 00:10:29 -04:00
parent e14836c5d8
commit 9aca53f54a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bin/xmonad.hs
View File

@ -464,10 +464,9 @@ logXinerama h = withWindowSet $ \ws -> io
compareXCoord compareXCoord
:: W.Screen i1 l1 a1 ScreenId ScreenDetail :: W.Screen i1 l1 a1 ScreenId ScreenDetail
-> W.Screen i2 l2 a2 ScreenId ScreenDetail -> Ordering -> W.Screen i2 l2 a2 ScreenId ScreenDetail -> Ordering
compareXCoord s0 s1 = compare x0 x1 compareXCoord s0 s1 = compare (go s0) (go s1)
where where
(_, Rectangle x0 _ _ _) = getScreenIdAndRectangle s0 go = (\(Rectangle x _ _ _) -> x) . snd . getScreenIdAndRectangle
(_, Rectangle x1 _ _ _) = getScreenIdAndRectangle s1
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- | Managehook configuration -- | Managehook configuration