From 7d21450e862ed30d0e7dc35ffb818bf7ac6e4687 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 19:33:57 -0400 Subject: missed checking the index in this case This code needs to be refactored.. --- Git/Repair.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Git') 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) -- cgit v1.2.3