[taffybar] More precise log settings

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

View File

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