add git-annex branch commit when assistant is syncing

Seems nothing else ensures the branch is committed anymore.
This commit is contained in:
Joey Hess 2012-10-28 15:33:21 -04:00
parent 9767562f65
commit 5406416234

View file

@ -83,10 +83,12 @@ reconnectRemotes threadname st dstatus scanremotes pushnotifier rs = void $
-}
pushToRemotes :: ThreadName -> UTCTime -> ThreadState -> Maybe PushNotifier -> Maybe FailedPushMap -> [Remote] -> IO Bool
pushToRemotes threadname now st mpushnotifier mpushmap remotes = do
(g, branch, u) <- runThreadState st $ (,,)
<$> gitRepo
<*> inRepo Git.Branch.current
<*> getUUID
(g, branch, u) <- runThreadState st $ do
Annex.Branch.commit "update"
(,,)
<$> gitRepo
<*> inRepo Git.Branch.current
<*> getUUID
go True branch g u remotes
where
go _ Nothing _ _ _ = return True -- no branch, so nothing to do