catch failure to start dbus service

This commit is contained in:
Joey Hess 2013-01-14 13:22:19 -04:00
parent 5563a28df9
commit fb9ab8b2b5

View file

@ -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