summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-21 20:04:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-21 20:04:38 -0400
commite93cbb52e8d14dc88ef758654e0122d8b35b1e5f (patch)
treee7cf7cfd3cdb5c648aa92d4b02873491a11046a6 /Assistant
parentc1f85cefd886c0e92747e6d9fc05c36dc6e31ea8 (diff)
include HEAD in CanPush shas
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Sync.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index cff4f95e0..fe578ab43 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -115,7 +115,8 @@ pushToRemotes' now notifypushes remotes = do
ret <- go True branch g u normalremotes
unless (null xmppremotes) $ do
shas <- liftAnnex $ map fst <$>
- inRepo (Git.Ref.matching [Annex.Branch.fullname, Git.Ref.headRef])
+ inRepo (Git.Ref.matchingWithHEAD
+ [Annex.Branch.fullname, Git.Ref.headRef])
forM_ xmppremotes $ \r -> sendNetMessage $
Pushing (getXMPPClientID r) (CanPush u shas)
return ret