diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Sync.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index e332d7856..8a9cf8985 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -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 |