aboutsummaryrefslogtreecommitdiff
path: root/Git/DiffTree.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-21 18:24:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-21 18:24:29 -0400
commitb6ebb173e7b5d4d07577cb2918e7d1a24fbc1f60 (patch)
tree8c994e00b091c448d80737aa99bbc181701eee04 /Git/DiffTree.hs
parent14f2a42ca4131a7a51a9e10a94521639b971bccd (diff)
XMPP: Avoid redundant and unncessary pushes. Note that this breaks compatibility with previous versions of git-annex, which will refuse to accept any XMPP pushes from this version.
Diffstat (limited to 'Git/DiffTree.hs')
-rw-r--r--Git/DiffTree.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Git/DiffTree.hs b/Git/DiffTree.hs
index f122a4fb5..cf8a37600 100644
--- a/Git/DiffTree.hs
+++ b/Git/DiffTree.hs
@@ -46,7 +46,10 @@ diffTreeRecursive src dst = getdiff (Param "diff-tree")
diffIndex :: Repo -> IO ([DiffTreeItem], IO Bool)
diffIndex repo = do
ifM (Git.Ref.headExists repo)
- ( getdiff (Param "diff-index") [Param "--cached", Param "HEAD"] repo
+ ( getdiff (Param "diff-index")
+ [ Param "--cached"
+ , Param $ show Git.Ref.headRef
+ ] repo
, return ([], return True)
)