ADD more logging
This commit is contained in:
parent
a658ffde26
commit
5adc88cd09
|
@ -138,7 +138,9 @@ evalConf db@DBusState { dbSysClient = cl } = do
|
||||||
-- start DBus interfaces first since many features after this test these
|
-- start DBus interfaces first since many features after this test these
|
||||||
-- interfaces as dependencies
|
-- interfaces as dependencies
|
||||||
let fs = features cl
|
let fs = features cl
|
||||||
|
io $ putStrLn "hi"
|
||||||
startDBusInterfaces fs
|
startDBusInterfaces fs
|
||||||
|
io $ putStrLn "dbus started"
|
||||||
(xmobarHandle, ts) <- startChildDaemons fs
|
(xmobarHandle, ts) <- startChildDaemons fs
|
||||||
io $ putStrLn "child daemons started"
|
io $ putStrLn "child daemons started"
|
||||||
startRemovableMon fs
|
startRemovableMon fs
|
||||||
|
|
Loading…
Reference in New Issue