From df69b2a47709c7c6d608e7e91f0130e431db00a5 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 19 Jun 2022 10:59:10 +0200
Subject: ...

---
 accounts/gkleen@sif/taffybar/gkleen-sif-taffybar.cabal |  1 +
 accounts/gkleen@sif/taffybar/src/taffybar.hs           | 11 ++++++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

(limited to 'accounts/gkleen@sif/taffybar')

diff --git a/accounts/gkleen@sif/taffybar/gkleen-sif-taffybar.cabal b/accounts/gkleen@sif/taffybar/gkleen-sif-taffybar.cabal
index 7f56dece..e32cb473 100644
--- a/accounts/gkleen@sif/taffybar/gkleen-sif-taffybar.cabal
+++ b/accounts/gkleen@sif/taffybar/gkleen-sif-taffybar.cabal
@@ -22,6 +22,7 @@ executable taffybar
                      , text
                      , HStringTemplate
                      , gtk-sni-tray
+                     , hslogger
   other-modules:       Paths_gkleen_sif_taffybar
                      , System.Taffybar.Widget.Clock
                      , System.Taffybar.Widget.TooltipBattery
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