[taffybar] Fix config

2021-08-14 04:24:25 -06:00 · 2021-08-14 04:24:25 -06:00 · cf22173bee
commit cf22173bee
parent eb18e13bf2
1 changed files with 2 additions and 2 deletions
--- a/dotfiles/config/taffybar/taffybar.hs
+++ b/dotfiles/config/taffybar/taffybar.hs
@ -134,8 +134,8 @@ cssFilesByHostname =
 main = do
  hostName <- getHostName
  homeDirectory <- getHomeDirectory
-  cssFiles <-
-    traverse (getUserConfigFile "taffybar") $ lookup hostName cssFilesByHostname
+  let relativeFiles = fromMaybe ["gotham.css", "taffybar.css"] $ lookup hostName cssFilesByHostname
+  cssFiles <- mapM (getUserConfigFile "taffybar") relativeFiles

  let myCPU = deocrateWithSetClassAndBoxes "cpu" $
              pollingGraphNew cpuCfg 5 cpuCallback