...

2 files changed, 9 insertions, 3 deletions

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