pushed Assistant monad down into DaemonStatus code
Currently have three old versions of functions that more reworking is needed to remove: getDaemonStatusOld, modifyDaemonStatusOld_, and modifyDaemonStatusOld
This commit is contained in:
parent
ea8df8fe9f
commit
47d94eb9a4
20 changed files with 141 additions and 152 deletions
|
@ -154,6 +154,6 @@ manualPull currentbranch remotes = do
|
|||
{- Start syncing a newly added remote, using a background thread. -}
|
||||
syncNewRemote :: Remote -> Assistant ()
|
||||
syncNewRemote remote = do
|
||||
liftAnnex . updateSyncRemotes =<< getAssistant daemonStatusHandle
|
||||
updateSyncRemotes
|
||||
thread <- asIO2 reconnectRemotes
|
||||
void $ liftIO $ forkIO $ thread False [remote]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue