diff options
| -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 |