summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@kitenet.net>2013-11-20 19:33:57 -0400
committerJoey Hess <joey@kitenet.net>2013-11-20 19:33:57 -0400
commit7d21450e862ed30d0e7dc35ffb818bf7ac6e4687 (patch)
tree49d72c093e19aa2b21b1edc0f44d858652549e20
parent05c41e3e2f166ee59092f7e63dea7448e1bd7a95 (diff)
downloadgit-repair-7d21450e862ed30d0e7dc35ffb818bf7ac6e4687.tar.gz
missed checking the index in this case
This code needs to be refactored..
-rw-r--r--Git/Repair.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs
index 2578f2c..88150e4 100644
--- a/Git/Repair.hs
+++ b/Git/Repair.hs
@@ -513,7 +513,10 @@ runRepairOf fsckresult forced referencerepo g = do
else needforce S.empty
)
| otherwise -> if forced
- then continuerepairs s
+ then ifM (checkIndex s g)
+ ( continuerepairs s
+ , corruptedindex
+ )
else do
putStrLn $ unwords
[ show (S.size s)