...

1 files changed, 8 insertions, 3 deletions

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