diff options
-rw-r--r-- | Assistant/WebApp/Configurators/Local.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs index dd9923988..64bb25b28 100644 --- a/Assistant/WebApp/Configurators/Local.hs +++ b/Assistant/WebApp/Configurators/Local.hs @@ -37,6 +37,7 @@ import qualified Data.Text as T import Data.Char import System.Posix.Directory import qualified Control.Exception as E +import Control.Concurrent data RepositoryPath = RepositoryPath Text deriving Show @@ -229,12 +230,12 @@ uniqueRemoteName r basename n | n == 0 = basename | otherwise = basename ++ show n -{- Start syncing a newly added remote. -} +{- Start syncing a newly added remote, using a background thread. -} syncRemote :: Remote -> Handler () syncRemote remote = do webapp <- getYesod runAnnex () $ updateKnownRemotes (daemonStatus webapp) - liftIO $ do + void $ liftIO $ forkIO $ do reconnectRemotes "WebApp" (fromJust $ threadState webapp) (daemonStatus webapp) |