mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

catch failure to start dbus service

Browse source
This commit is contained in:
Joey Hess 2013-01-14 13:22:19 -04:00
parent 5563a28df9
commit fb9ab8b2b5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/MountWatcher.hs
View file

@ -105,7 +105,7 @@ checkMountMonitor client = do
startOneService :: Client -> [ServiceName] -> Assistant Bool startOneService :: Client -> [ServiceName] -> Assistant Bool
startOneService _ [] = return False startOneService _ [] = return False
startOneService client (x:xs) = do startOneService client (x:xs) = do
_ <- liftIO $ callDBus client "StartServiceByName" _ <- liftIO $ tryNonAsync $ callDBus client "StartServiceByName"
[toVariant x, toVariant (0 :: Word32)] [toVariant x, toVariant (0 :: Word32)]
ifM (liftIO $ elem x <$> listServiceNames client) ifM (liftIO $ elem x <$> listServiceNames client)
( do ( do