diff options
Diffstat (limited to 'Git/DiffTree.hs')
| -rw-r--r-- | Git/DiffTree.hs | 5 |
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) ) |