forked from colonelpanic/dotfiles
Merge branch 'master' of github.com:IvanMalison/dotfiles
This commit is contained in:
commit
ce6c1e1388
@ -107,8 +107,8 @@ logDebug = do
|
|||||||
handler <- streamHandler stdout DEBUG
|
handler <- streamHandler stdout DEBUG
|
||||||
logger <- getLogger "System.Taffybar"
|
logger <- getLogger "System.Taffybar"
|
||||||
saveGlobalLogger $ setLevel DEBUG logger
|
saveGlobalLogger $ setLevel DEBUG logger
|
||||||
infoLogger <- getLogger "System.Information"
|
workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
|
||||||
saveGlobalLogger $ setLevel DEBUG infoLogger
|
saveGlobalLogger $ setLevel WARNING workspacesLogger
|
||||||
|
|
||||||
github = do
|
github = do
|
||||||
Right (token, _) <- passGet "github-token"
|
Right (token, _) <- passGet "github-token"
|
||||||
@ -179,7 +179,8 @@ main = do
|
|||||||
}
|
}
|
||||||
simpleTaffyConfig =
|
simpleTaffyConfig =
|
||||||
baseConfig
|
baseConfig
|
||||||
dyreTaffybar $ withLogServer $ withToggleServer $ toTaffyConfig simpleTaffyConfig
|
dyreTaffybar $ withBatteryRefresh $ withLogServer $ withToggleServer $
|
||||||
|
toTaffyConfig simpleTaffyConfig
|
||||||
|
|
||||||
-- Local Variables:
|
-- Local Variables:
|
||||||
-- flycheck-ghc-args: ("-Wno-missing-signatures")
|
-- flycheck-ghc-args: ("-Wno-missing-signatures")
|
||||||
|
Loading…
Reference in New Issue
Block a user