colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[taffybar] More precise log settings

Browse Source
This commit is contained in:
Ivan Malison 2018-04-24 02:13:18 -07:00
parent c8bd111df2
commit 17f347b153
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/config/taffybar/taffybar.hs
View File

@ -147,13 +147,14 @@ addClass klass action = do
logDebug = do logDebug = do
handler <- streamHandler stdout DEBUG handler <- streamHandler stdout DEBUG
logger <- getLogger "System" logger <- getLogger "System.Taffybar"
saveGlobalLogger $ setLevel DEBUG logger saveGlobalLogger $ setLevel DEBUG logger
infoLogger <- getLogger "System.Information"
saveGlobalLogger $ setLevel DEBUG infoLogger
main = do main = do
interfaceNames <- getInterfaces interfaceNames <- getInterfaces
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
logDebug
let resourcesDirectory = homeDirectory </> ".lib" </> "resources" let resourcesDirectory = homeDirectory </> ".lib" </> "resources"
inResourcesDirectory file = resourcesDirectory </> file inResourcesDirectory file = resourcesDirectory </> file
highContrastDirectory = highContrastDirectory =