diff options
Diffstat (limited to 'Git/Repair.hs')
| -rw-r--r-- | Git/Repair.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index afbb87d..2578f2c 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -523,11 +523,9 @@ runRepairOf fsckresult forced referencerepo g = do Nothing | forced -> ifM (pure (repoIsLocalBare g) <||> checkIndex S.empty g) ( do - fsckresult' <- findBroken False g - case fsckresult' of - Nothing -> do - putStrLn "Unable to fully recover; cannot find missing objects." - return (False, S.empty, []) + missing' <- cleanCorruptObjects Nothing g + case missing' of + Nothing -> return (False, S.empty, []) Just stillmissing' -> continuerepairs stillmissing' , corruptedindex ) |