diff options
| -rw-r--r-- | Git/Repair.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index 2578f2c17..88150e44e 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) |