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

repair: Prevent auto gc from happening when fetching from a remote.

Browse source
This commit is contained in:
Joey Hess 2014-10-12 14:27:46 -04:00
parent 9af06670b5
commit c6e9125c61
3 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Git/Repair.hs
View file

@ -135,11 +135,16 @@ retrieveMissingObjects missing referencerepo r
pullremotes tmpr rmts fetchrefs (FsckFoundMissing stillmissing t)
, pullremotes tmpr rmts fetchrefs ms
)
fetchfrom fetchurl ps = runBool $
[ Param "fetch"
, Param fetchurl
, Params "--force --update-head-ok --quiet"
] ++ ps
fetchfrom fetchurl ps fetchr = runBool ps' fetchr'
where
ps' =
[ Param "fetch"
, Param fetchurl
, Params "--force --update-head-ok --quiet"
] ++ ps
fetchr' = fetchr { gitGlobalOpts = gitGlobalOpts fetchr ++ nogc }
nogc = [ Param "-c", Param "gc.auto=0" ]
-- fetch refs and tags
fetchrefstags = [ Param "+refs/heads/*:refs/heads/*", Param "--tags"]
-- Fetch all available refs (more likely to fail,