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

Git.Queue: allow providing git common options like -c

Browse source
This commit is contained in:
Joey Hess 2021-01-04 12:51:55 -04:00
parent 36f691e7e5
commit 1c5fc8f047
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 41 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Add.hs
View file

@ -147,7 +147,8 @@ addSmallOverridden o file = do
addFile :: CheckGitIgnore -> RawFilePath -> Annex Bool
addFile ci file = do
ps <- gitAddParams ci
Annex.Queue.addCommand "add" (ps++[Param "--"]) [fromRawFilePath file]
Annex.Queue.addCommand [] "add" (ps++[Param "--"])
[fromRawFilePath file]
return True
start :: AddOptions -> SeekInput -> RawFilePath -> AddUnlockedMatcher -> CommandStart

2
Command/Fix.hs
View file

@ -107,5 +107,5 @@ fixSymlink file link = do
cleanupSymlink :: FilePath -> CommandCleanup
cleanupSymlink file = do
Annex.Queue.addCommand "add" [Param "--force", Param "--"] [file]
Annex.Queue.addCommand [] "add" [Param "--force", Param "--"] [file]
return True

3
Command/FromKey.hs
View file

@ -97,7 +97,8 @@ perform key file = lookupKeyNotHidden file >>= \case
link <- calcRepo $ gitAnnexLink file key
createWorkTreeDirectory (parentDir file)
liftIO $ R.createSymbolicLink link file
Annex.Queue.addCommand "add" [Param "--"] [fromRawFilePath file]
Annex.Queue.addCommand [] "add" [Param "--"]
[fromRawFilePath file]
next $ return True
)
Just k