summaryrefslogtreecommitdiff
path: root/accounts/gkleen@sif/taffybar/src/taffybar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'accounts/gkleen@sif/taffybar/src/taffybar.hs')
-rw-r--r--accounts/gkleen@sif/taffybar/src/taffybar.hs11
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)
21 21
22import Paths_gkleen_sif_taffybar 22import Paths_gkleen_sif_taffybar
23 23
24import System.Log.Logger
25
24 26
25main :: IO () 27main :: IO ()
26main = do 28main = do
29 logger <- getLogger "System.Taffybar"
30 saveGlobalLogger $ setLevel INFO logger
31
27 myCssPath <- getDataFileName "taffybar.css" 32 myCssPath <- getDataFileName "taffybar.css"
28 startTaffybar exampleTaffybarConfig{ cssPath = Just myCssPath } 33 startTaffybar taffybarConfig{ cssPath = Just myCssPath }
29 34
30 35
31exampleTaffybarConfig :: TaffybarConfig 36taffybarConfig :: TaffybarConfig
32exampleTaffybarConfig = 37taffybarConfig =
33 let myWorkspacesConfig = 38 let myWorkspacesConfig =
34 defaultWorkspacesConfig 39 defaultWorkspacesConfig
35 { maxIcons = Just 0 40 { maxIcons = Just 0