From 9aca53f54a052399e2924047830dddba41d11f1e Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sat, 6 Aug 2022 00:10:29 -0400 Subject: [PATCH] REF clean up code --- bin/xmonad.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/bin/xmonad.hs b/bin/xmonad.hs index fe3f0f0..a6e665b 100644 --- a/bin/xmonad.hs +++ b/bin/xmonad.hs @@ -464,10 +464,9 @@ logXinerama h = withWindowSet $ \ws -> io compareXCoord :: W.Screen i1 l1 a1 ScreenId ScreenDetail -> W.Screen i2 l2 a2 ScreenId ScreenDetail -> Ordering -compareXCoord s0 s1 = compare x0 x1 +compareXCoord s0 s1 = compare (go s0) (go s1) where - (_, Rectangle x0 _ _ _) = getScreenIdAndRectangle s0 - (_, Rectangle x1 _ _ _) = getScreenIdAndRectangle s1 + go = (\(Rectangle x _ _ _) -> x) . snd . getScreenIdAndRectangle -------------------------------------------------------------------------------- -- | Managehook configuration