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