FIX format error

This commit is contained in:
Nathan Dwarshuis 2020-04-05 13:13:50 -04:00
parent 8d786f8475
commit d4cdd69b80
1 changed files with 2 additions and 1 deletions

View File

@ -247,7 +247,8 @@ myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama
myWindowSetXinerama myWindowSetXinerama
:: LayoutClass layout a1 => :: LayoutClass layout a1 =>
W.StackSet String (layout a1) a2 ScreenId ScreenDetail -> String W.StackSet String (layout a1) a2 ScreenId ScreenDetail -> String
myWindowSetXinerama ws = unwords [onScreen, offScreen, sep, layout, nWindows] myWindowSetXinerama ws =
unwords $ filter (not . null) [onScreen, offScreen, sep, layout, nWindows]
where where
onScreen = xmobarColor hilightFgColor hilightBgColor onScreen = xmobarColor hilightFgColor hilightBgColor
$ pad $ pad