From 6cb3d15ee745bf0365b142e324585bbe1ea37d01 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2013 20:26:02 -0400 Subject: try turning on write bit on loose objects Avoid deleting them if that's the only problem. --- Git/Repair.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Git/Repair.hs b/Git/Repair.hs index dafdd3f..f1e6818 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -50,6 +50,7 @@ cleanCorruptObjects :: FsckResults -> Repo -> IO (Maybe MissingObjects) cleanCorruptObjects fsckresults r = do void $ explodePacks r objs <- listLooseObjectShas r + mapM_ (tryIO . allowRead . looseObjectFile r) objs bad <- findMissing objs r void $ removeLoose r $ S.union bad (fromMaybe S.empty fsckresults) -- Rather than returning the loose objects that were removed, re-run -- cgit v1.2.3