mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

merge from git-repair

Browse source
This commit is contained in:
Joey Hess 2013-11-20 19:34:30 -04:00
parent 1711415145
commit 8217e97d88
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Git/Repair.hs
View file

@ -513,7 +513,10 @@ runRepairOf fsckresult forced referencerepo g = do
else needforce S.empty else needforce S.empty
) )
| otherwise -> if forced | otherwise -> if forced
then continuerepairs s then ifM (checkIndex s g)
( continuerepairs s
, corruptedindex
)
else do else do
putStrLn $ unwords putStrLn $ unwords
[ show (S.size s) [ show (S.size s)