diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-11-11 15:01:13 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-11-11 15:01:13 -0400 |
| commit | 962e279e17c1f3cf3be49ffdfb5e7310711a220c (patch) | |
| tree | d9953d9e57dea51c24ccaf4d7e64731010546f4f /Git/Repair.hs | |
| parent | 7d7f93302c72cbe1a16598b0c90a49c10aaf3669 (diff) | |
| download | git-repair-962e279e17c1f3cf3be49ffdfb5e7310711a220c.tar.gz | |
merge from git-annex
Diffstat (limited to 'Git/Repair.hs')
| -rw-r--r-- | Git/Repair.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index b441f13..fcfc036 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -342,8 +342,8 @@ verifyTree missing treesha r | S.member treesha missing = return False | otherwise = do (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) + let objshas = map (LsTree.sha . LsTree.parseLsTree) ls + if any (`S.member` missing) objshas then do void cleanup return False |