REF a bitty thingy
This commit is contained in:
parent
4951c2a35e
commit
05f1165cc1
|
@ -90,8 +90,7 @@ run = do
|
||||||
hSetBuffering stdout LineBuffering
|
hSetBuffering stdout LineBuffering
|
||||||
withCache $ do
|
withCache $ do
|
||||||
withDBusX_ $ \db -> do
|
withDBusX_ $ \db -> do
|
||||||
let sys = dbSysClient db
|
let fs = features $ dbSysClient db
|
||||||
let fs = features sys
|
|
||||||
startDBusInterfaces db fs
|
startDBusInterfaces db fs
|
||||||
withXmobar $ \xmobarP -> do
|
withXmobar $ \xmobarP -> do
|
||||||
withChildDaemons fs $ \ds -> do
|
withChildDaemons fs $ \ds -> do
|
||||||
|
|
Loading…
Reference in New Issue