diff options
author | 2013-01-14 13:22:19 -0400 | |
---|---|---|
committer | 2013-01-14 13:22:19 -0400 | |
commit | 15f88af55002db474b68db6ca771cc88b5b58ec0 (patch) | |
tree | a4ba4e944287b46840adb6b48553305d24191182 /Assistant/Threads/MountWatcher.hs | |
parent | 305226f48fe802bb69c52434a44503624b5d52d9 (diff) |
catch failure to start dbus service
Diffstat (limited to 'Assistant/Threads/MountWatcher.hs')
-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 |