diff options
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Branch.hs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 286eb0558..c6c9b9949 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -43,6 +43,7 @@ import qualified Git.Sha import qualified Git.Branch import qualified Git.UnionMerge import qualified Git.UpdateIndex +import Git.LsTree (lsTreeParams) import Git.HashObject import Git.Types import Git.FilePath @@ -314,14 +315,8 @@ files = do {- Files in the branch, not including any from journalled changes, - and without updating the branch. -} branchFiles :: Annex [FilePath] -branchFiles = withIndex $ inRepo $ Git.Command.pipeNullSplitZombie - [ Param "ls-tree" - , Param "--full-tree" - , Param "--name-only" - , Param "-r" - , Param "-z" - , Param $ fromRef fullname - ] +branchFiles = withIndex $ inRepo $ Git.Command.pipeNullSplitZombie $ + lsTreeParams fullname [Param "--name-only"] {- Populates the branch's index file with the current branch contents. - |