summaryrefslogtreecommitdiff
path: root/Git/Repair.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/Repair.hs')
-rw-r--r--Git/Repair.hs4
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