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:
Joey Hess 2012-10-30 15:39:15 -04:00
parent ea8df8fe9f
commit 47d94eb9a4
20 changed files with 141 additions and 152 deletions

View file

@ -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]