mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add git-annex branch commit when assistant is syncing

Browse source 
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
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Assistant/Sync.hs
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 -> UTCTime -> ThreadState -> Maybe PushNotifier -> Maybe FailedPushMap -> [Remote] -> IO Bool
pushToRemotes threadname now st mpushnotifier mpushmap remotes = do pushToRemotes threadname now st mpushnotifier mpushmap remotes = do
(g, branch, u) <- runThreadState st $ (,,) (g, branch, u) <- runThreadState st $ do
<$> gitRepo Annex.Branch.commit "update"
<*> inRepo Git.Branch.current (,,)
<*> getUUID <$> gitRepo
<*> inRepo Git.Branch.current
<*> getUUID
go True branch g u remotes go True branch g u remotes
where where
go _ Nothing _ _ _ = return True -- no branch, so nothing to do go _ Nothing _ _ _ = return True -- no branch, so nothing to do