diff options
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index bba09e4..9bc3b55 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -219,12 +219,12 @@ dynamicLogString pp = do let ws = pprWindowSet sort' urgents pp winset -- window title - wt <- maybe (return "") (fmap (encodeOutput . show) . getName) . S.peek $ winset + wt <- maybe (return "") (fmap show . getName) . S.peek $ winset -- run extra loggers, ignoring any that generate errors. extras <- sequence $ map (flip catchX (return Nothing)) $ ppExtras pp - return $ sepBy (ppSep pp) . ppOrder pp $ + return $ encodeOutput . sepBy (ppSep pp) . ppOrder pp $ [ ws , ppLayout pp ld , ppTitle pp wt |