ENH add test
This commit is contained in:
parent
504c719bdd
commit
761653265d
|
@ -143,6 +143,8 @@ evalConf db@DBusState { dbSysClient = cl } = do
|
||||||
tt <- evalAlways $ fsTabbedTheme fs
|
tt <- evalAlways $ fsTabbedTheme fs
|
||||||
io $ putStrLn "tabbed theme started"
|
io $ putStrLn "tabbed theme started"
|
||||||
io $ hFlush stdout
|
io $ hFlush stdout
|
||||||
|
-- uninstallSignalHandlers
|
||||||
|
-- io $ print =<< readCreateProcessWithExitCode (proc "echo" ["hi"]) ""
|
||||||
startDBusInterfaces fs
|
startDBusInterfaces fs
|
||||||
io $ putStrLn "dbus started"
|
io $ putStrLn "dbus started"
|
||||||
io $ hFlush stdout
|
io $ hFlush stdout
|
||||||
|
|
Loading…
Reference in New Issue