[taffybar] More precise log settings
This commit is contained in:
parent
c8bd111df2
commit
17f347b153
@ -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 =
|
||||
|
Loading…
Reference in New Issue
Block a user