diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-20 19:33:57 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-20 19:33:57 -0400 |
commit | 7d21450e862ed30d0e7dc35ffb818bf7ac6e4687 (patch) | |
tree | 49d72c093e19aa2b21b1edc0f44d858652549e20 | |
parent | 05c41e3e2f166ee59092f7e63dea7448e1bd7a95 (diff) | |
download | git-repair-7d21450e862ed30d0e7dc35ffb818bf7ac6e4687.tar.gz |
missed checking the index in this case
This code needs to be refactored..
-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 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) |