summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-01-14 13:22:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-01-14 13:22:19 -0400
commit15f88af55002db474b68db6ca771cc88b5b58ec0 (patch)
treea4ba4e944287b46840adb6b48553305d24191182 /Assistant
parent305226f48fe802bb69c52434a44503624b5d52d9 (diff)
catch failure to start dbus service
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/MountWatcher.hs2
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