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

merge with git-repair

Browse source
This commit is contained in:
Joey Hess 2013-11-19 17:08:57 -04:00
parent 423e933800
commit b1ed98636b
5 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/Repair.hs
View file

@ -8,6 +8,7 @@
module Git.Repair (
runRepair,
runRepairOf,
successfulRepair,
cleanCorruptObjects,
retrieveMissingObjects,
resetLocalBranches,
@ -452,6 +453,9 @@ runRepair forced g = do
putStrLn "No problems found."
return (True, S.empty, [])
successfulRepair :: (Bool, MissingObjects, [Branch]) -> Bool
successfulRepair = fst3
runRepairOf :: FsckResults -> Bool -> Maybe FilePath -> Repo -> IO (Bool, MissingObjects, [Branch])
runRepairOf fsckresult forced referencerepo g = do
missing <- cleanCorruptObjects fsckresult g