sync, assistant: Force push of the git-annex branch.

Necessary to ensure it gets pushed to remotes after being rewritten by forget.
See inline rationalles for why I think this is safe!
This commit is contained in:
Joey Hess 2013-08-29 14:15:32 -04:00
parent c181efe437
commit 6cdac3a003
4 changed files with 48 additions and 18 deletions

View file

@ -101,3 +101,7 @@ commit message branch parentrefs repo = do
return sha
where
ps = concatMap (\r -> ["-p", show r]) parentrefs
{- A leading + makes git-push force pushing a branch. -}
forcePush :: String -> String
forcePush b = "+" ++ b