lifted Assistant.Sync into Assistant monad
lots of nice cleanups
This commit is contained in:
parent
1948202b32
commit
5d57b28a34
9 changed files with 88 additions and 117 deletions
|
@ -61,13 +61,7 @@ changeSyncFlag r enabled = runAnnex undefined $ do
|
|||
|
||||
{- Start syncing remote, using a background thread. -}
|
||||
syncRemote :: Remote -> Handler ()
|
||||
syncRemote remote = do
|
||||
d <- getAssistantY id
|
||||
liftIO $ syncNewRemote
|
||||
(threadState d)
|
||||
(daemonStatusHandle d)
|
||||
(scanRemoteMap d)
|
||||
remote
|
||||
syncRemote = runAssistantY . syncNewRemote
|
||||
|
||||
pauseTransfer :: Transfer -> Handler ()
|
||||
pauseTransfer = cancelTransfer True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue