From 6623a51cf9a5284d8fb9b883b499d8eb8a6381c8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 2 Sep 2012 15:20:03 -0400
Subject: [PATCH] run sync in background

---
 Assistant/WebApp/Configurators/Local.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs
index dd99239882..64bb25b28c 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)