mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

syncNewRemote is not only used for new remotes; rename to syncRemote

Browse source
This commit is contained in:
Joey Hess 2013-04-08 15:36:09 -04:00
parent 4ba729461c
commit 1f1cddbaa7
7 changed files with 11 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Utility.hs
View file

@ -44,7 +44,7 @@ changeSyncable Nothing enable = do
| otherwise = PauseWatcher
changeSyncable (Just r) True = do
changeSyncFlag r True
syncRemote r
liftAssistant $ syncRemote r
changeSyncable (Just r) False = do
changeSyncFlag r False
liftAssistant $ updateSyncRemotes
@ -64,10 +64,6 @@ changeSyncFlag r enabled = liftAnnex $ do
where
key = Config.remoteConfig (Remote.repo r) "sync"
{- Start syncing remote, using a background thread. -}
syncRemote :: Remote -> Handler ()
syncRemote = liftAssistant . syncNewRemote
pauseTransfer :: Transfer -> Handler ()
pauseTransfer = cancelTransfer True