From 071adfda8b9ff0b44e0d33fc5b583af07b999593 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Mon, 18 Oct 2021 14:49:16 +0100
Subject: [PATCH] fixup! X.H.EWMH.Desktops: New module; implement
 desktops/windows EWMH hints

---
 XMonad/Hooks/EWMH/Desktops.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad/Hooks/EWMH/Desktops.hs b/XMonad/Hooks/EWMH/Desktops.hs
index 41752820db..c60f01ef49 100644
--- a/XMonad/Hooks/EWMH/Desktops.hs
+++ b/XMonad/Hooks/EWMH/Desktops.hs
@@ -76,7 +76,7 @@ setEwmhWorkspaceListTransform f = XC.modifyDef $ \c -> c{ workspaceListTransform
 -- existing instead of replacing it.
 addEwmhWorkspaceListTransform :: ([WindowSpace] -> [WindowSpace]) -> XConfig l -> XConfig l
 addEwmhWorkspaceListTransform f = XC.modifyDef $ \c ->
-    c{ workspaceListTransform = workspaceListTransform c <> f }
+    c{ workspaceListTransform = f . workspaceListTransform c }
 
 ewmhDesktopsLogHook :: X ()
 ewmhDesktopsLogHook = XC.withDef $ \EwmhDesktopsConfig{workspaceListTransform} -> do