catch failure to start dbus service
This commit is contained in:
parent
5563a28df9
commit
fb9ab8b2b5
1 changed files with 1 additions and 1 deletions
|
@ -105,7 +105,7 @@ checkMountMonitor client = do
|
|||
startOneService :: Client -> [ServiceName] -> Assistant Bool
|
||||
startOneService _ [] = return False
|
||||
startOneService client (x:xs) = do
|
||||
_ <- liftIO $ callDBus client "StartServiceByName"
|
||||
_ <- liftIO $ tryNonAsync $ callDBus client "StartServiceByName"
|
||||
[toVariant x, toVariant (0 :: Word32)]
|
||||
ifM (liftIO $ elem x <$> listServiceNames client)
|
||||
( do
|
||||
|
|
Loading…
Add table
Reference in a new issue