fix logMode

2025-05-11 23:33:22 +08:00 · 2025-05-11 23:33:22 +08:00 · 6615eb685b
commit 6615eb685b
parent 10c23160e0
1 changed files with 1 additions and 1 deletions
--- a/src/xmonad.hs
+++ b/src/xmonad.hs
@ -223,7 +223,7 @@ myXmobarPP = def
    , ppHiddenNoWindows = grey0  . wrap " " ""
    , ppUrgent          = red    . wrap " " ""
    , ppLayout          = aqua   . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
-    , ppOrder           = \[ws, l, _, mode] -> [ws, l, mode]
+    , ppOrder           = \case { [ws, l, _, mode] -> [ws, l, mode]; xs -> xs }
    , ppExtras          = [logMode]
    }