aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-08 15:36:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-08 15:43:43 -0400
commit42e27ceffa8ca585be4a684c43ec187121418b70 (patch)
tree249bca21cb6eab3c0997d88a33f325d3acb00fb5 /Assistant/Sync.hs
parent53de52f410dceb5c80bcfd889209b9199f052348 (diff)
syncNewRemote is not only used for new remotes; rename to syncRemote
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r--Assistant/Sync.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index 50e8e7321..78fdbab1a 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -204,9 +204,9 @@ manualPull currentbranch remotes = do
sendNetMessage $ Pushing (getXMPPClientID r) PushRequest
return (catMaybes failed, haddiverged)
-{- Start syncing a newly added remote, using a background thread. -}
-syncNewRemote :: Remote -> Assistant ()
-syncNewRemote remote = do
+{- Start syncing a remote, using a background thread. -}
+syncRemote :: Remote -> Assistant ()
+syncRemote remote = do
updateSyncRemotes
thread <- asIO $ do
reconnectRemotes False [remote]