mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor ls-tree params

Browse source 
All in one place to avoid bugs like 174da80ddc
This commit is contained in:
Joey Hess 2015-07-06 14:21:43 -04:00
parent 174da80ddc
commit f7dc20595e
3 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Git/Repair.hs
View file

@ -341,7 +341,7 @@ verifyTree :: MissingObjects -> Sha -> Repo -> IO Bool
verifyTree missing treesha r
| S.member treesha missing = return False
| otherwise = do
(ls, cleanup) <- pipeNullSplit (LsTree.lsTreeParams treesha) r
(ls, cleanup) <- pipeNullSplit (LsTree.lsTreeParams treesha []) r
let objshas = map (extractSha . LsTree.sha . LsTree.parseLsTree) ls
if any isNothing objshas || any (`S.member` missing) (catMaybes objshas)
then do