add git-annex branch commit when assistant is syncing
Seems nothing else ensures the branch is committed anymore.
This commit is contained in:
parent
9767562f65
commit
5406416234
1 changed files with 6 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue