From df69b2a47709c7c6d608e7e91f0130e431db00a5 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 19 Jun 2022 10:59:10 +0200 Subject: ... --- accounts/gkleen@sif/taffybar/src/taffybar.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'accounts/gkleen@sif/taffybar/src/taffybar.hs') diff --git a/accounts/gkleen@sif/taffybar/src/taffybar.hs b/accounts/gkleen@sif/taffybar/src/taffybar.hs index 7dbb5c8e..13585c55 100644 --- a/accounts/gkleen@sif/taffybar/src/taffybar.hs +++ b/accounts/gkleen@sif/taffybar/src/taffybar.hs @@ -21,15 +21,20 @@ import Control.Monad.Trans.Reader (mapReaderT) import Paths_gkleen_sif_taffybar +import System.Log.Logger + main :: IO () main = do + logger <- getLogger "System.Taffybar" + saveGlobalLogger $ setLevel INFO logger + myCssPath <- getDataFileName "taffybar.css" - startTaffybar exampleTaffybarConfig{ cssPath = Just myCssPath } + startTaffybar taffybarConfig{ cssPath = Just myCssPath } -exampleTaffybarConfig :: TaffybarConfig -exampleTaffybarConfig = +taffybarConfig :: TaffybarConfig +taffybarConfig = let myWorkspacesConfig = defaultWorkspacesConfig { maxIcons = Just 0 -- cgit v1.2.3