diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-14 13:22:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-14 13:22:19 -0400 |
| commit | 15f88af55002db474b68db6ca771cc88b5b58ec0 (patch) | |
| tree | a4ba4e944287b46840adb6b48553305d24191182 | |
| parent | 305226f48fe802bb69c52434a44503624b5d52d9 (diff) | |
catch failure to start dbus service
| -rw-r--r-- | Assistant/Threads/MountWatcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs index 45930df69..594035c52 100644 --- a/Assistant/Threads/MountWatcher.hs +++ b/Assistant/Threads/MountWatcher.hs @@ -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 |