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

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

View file

@ -100,7 +100,7 @@ updateSymlinks = do
<$> calcRepo (gitAnnexLink (toRawFilePath f) k)
liftIO $ removeFile f
liftIO $ createSymbolicLink link f
Annex.Queue.addCommand "add" [Param "--"] [f]
Annex.Queue.addCommand [] "add" [Param "--"] [f]
moveLocationLogs :: Annex ()
moveLocationLogs = do
@ -127,9 +127,9 @@ moveLocationLogs = do
old <- liftIO $ readLog1 f
new <- liftIO $ readLog1 dest
liftIO $ writeLog1 dest (old++new)
Annex.Queue.addCommand "add" [Param "--"] [dest]
Annex.Queue.addCommand "add" [Param "--"] [f]
Annex.Queue.addCommand "rm" [Param "--quiet", Param "-f", Param "--"] [f]
Annex.Queue.addCommand [] "add" [Param "--"] [dest]
Annex.Queue.addCommand [] "add" [Param "--"] [f]
Annex.Queue.addCommand [] "rm" [Param "--quiet", Param "-f", Param "--"] [f]
oldlog2key :: FilePath -> Maybe (FilePath, Key)
oldlog2key l