Propagate --force to git-annex transferrer
And other child processes.
This commit is contained in:
parent
7d4045277a
commit
f7404a64c0
3 changed files with 8 additions and 1 deletions
|
@ -85,7 +85,11 @@ gitAnnexChildProcess subcmd ps f a = do
|
|||
gitAnnexChildProcessParams :: String -> [CommandParam] -> Annex [CommandParam]
|
||||
gitAnnexChildProcessParams subcmd ps = do
|
||||
cps <- gitAnnexGitConfigOverrides
|
||||
return (Param subcmd : cps ++ ps)
|
||||
force <- Annex.getRead Annex.force
|
||||
let cps' = if force
|
||||
then Param "--force" : cps
|
||||
else cps
|
||||
return (Param subcmd : cps' ++ ps)
|
||||
|
||||
gitAnnexGitConfigOverrides :: Annex [CommandParam]
|
||||
gitAnnexGitConfigOverrides = concatMap (\c -> [Param "-c", Param c])
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue