Bugfix: A file named HEAD in the work tree could confuse some git commands run by git-annex.

This commit is contained in:
Joey Hess 2015-01-06 21:41:21 -04:00
parent d7f1449b2b
commit adefcf189a
2 changed files with 3 additions and 1 deletions

View file

@ -61,7 +61,7 @@ diffIndex' :: Ref -> [CommandParam] -> Repo -> IO ([DiffTreeItem], IO Bool)
diffIndex' ref params repo =
ifM (Git.Ref.headExists repo)
( getdiff (Param "diff-index")
( params ++ [Param $ fromRef ref] )
( params ++ [Param $ fromRef ref] ++ [Param "--"] )
repo
, return ([], return True)
)