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

4
Assistant/Sync.hs
View file

@ -83,7 +83,9 @@ 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
Annex.Branch.commit "update"
(,,)
<$> gitRepo <$> gitRepo
<*> inRepo Git.Branch.current <*> inRepo Git.Branch.current
<*> getUUID <*> getUUID