fixup! X.H.EWMH.Desktops: New module; implement desktops/windows EWMH…

… hints
xmonad · Oct 18, 2021 · 071adfd · 071adfd
1 parent 8df5bd9
commit 071adfd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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