From 1f8cf272bd60708a366aa62244ea70f2d9a75829 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Tue, 15 May 2018 18:04:47 -0700 Subject: [PATCH] [taffybar] Filter workspaces by default in logDebug --- dotfiles/config/taffybar/taffybar.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs index 770ac8df..cb56de52 100644 --- a/dotfiles/config/taffybar/taffybar.hs +++ b/dotfiles/config/taffybar/taffybar.hs @@ -155,8 +155,8 @@ logDebug = do handler <- streamHandler stdout DEBUG logger <- getLogger "System.Taffybar" saveGlobalLogger $ setLevel DEBUG logger - infoLogger <- getLogger "System.Information" - saveGlobalLogger $ setLevel DEBUG infoLogger + workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces" + saveGlobalLogger $ setLevel WARNING workspacesLogger github = do Right (token, _) <- passGet "github-token" @@ -165,6 +165,7 @@ github = do main = do interfaceNames <- getInterfaces homeDirectory <- getHomeDirectory + -- logDebug let resourcesDirectory = homeDirectory ".lib" "resources" inResourcesDirectory file = resourcesDirectory file highContrastDirectory = @@ -257,7 +258,8 @@ main = do -- , centerWidgets = [makeContents (addClass "Window" wnd) "Cpu"] -- , endWidgets = [makeContents los "Cpu"] -- } - dyreTaffybar $ withLogServer $ withToggleServer $ toTaffyConfig simpleTaffyConfig + dyreTaffybar $ withBatteryRefresh $ withLogServer $ withToggleServer $ + toTaffyConfig simpleTaffyConfig -- Local Variables: -- flycheck-ghc-args: ("-Wno-missing-signatures")