From 6079c61063dc2215692ca56a90c13ffa9ffc1727 Mon Sep 17 00:00:00 2001 From: slotThe Date: Mon, 16 Nov 2020 12:13:10 +0100 Subject: [PATCH] Use sortOn instead of sortBy comparing --- XMonad/Actions/TopicSpace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Actions/TopicSpace.hs b/XMonad/Actions/TopicSpace.hs index 1c7dde16..611d2696 100644 --- a/XMonad/Actions/TopicSpace.hs +++ b/XMonad/Actions/TopicSpace.hs @@ -300,7 +300,7 @@ pprWindowSet tg pp = do let depth topic = fromJust $ elemIndex topic (lastWs ++ [topic]) add_depth proj topic = proj pp . (((topic++":")++) . show) . depth $ topic pp' = pp { ppHidden = add_depth ppHidden, ppVisible = add_depth ppVisible } - sortWindows = take maxDepth . sortBy (comparing $ depth . W.tag) + sortWindows = take maxDepth . sortOn (depth . W.tag) return $ DL.pprWindowSet sortWindows urgents pp' winset -- | Given a prompt configuration and a topic configuration, trigger the action associated with