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