git subcommand cleanup
Pass subcommand as a regular param, which allows passing git parameters like -c before it. This was already done in the pipeing set of functions, but not the command running set.
This commit is contained in:
parent
3a783b4a3a
commit
0c13d3065e
20 changed files with 95 additions and 76 deletions
|
@ -81,9 +81,9 @@ commitStaged = do
|
|||
Left _ -> return False
|
||||
Right _ -> do
|
||||
direct <- isDirect
|
||||
let params = nomessage $
|
||||
catMaybes
|
||||
[ Just $ Param "--quiet"
|
||||
let params = nomessage $ catMaybes
|
||||
[ Just $ Param "commit"
|
||||
, Just $ Param "--quiet"
|
||||
{- In indirect mode, avoid running the
|
||||
- usual git-annex pre-commit hook;
|
||||
- watch does the same symlink fixing,
|
||||
|
@ -95,7 +95,7 @@ commitStaged = do
|
|||
- each other out, etc. Git returns nonzero on those,
|
||||
- so don't propigate out commit failures. -}
|
||||
void $ inRepo $ catchMaybeIO .
|
||||
Git.Command.runQuiet "commit" params
|
||||
Git.Command.runQuiet params
|
||||
return True
|
||||
where
|
||||
nomessage ps
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue