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

fix

Browse source
This commit is contained in:
Joey Hess 2013-03-03 15:18:24 -04:00
parent 53318d6ef1
commit 724711e4b7
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Threads/Committer.hs
View file

@ -82,8 +82,7 @@ commitStaged = do
Right _ -> do Right _ -> do
direct <- isDirect direct <- isDirect
let params = nomessage $ catMaybes let params = nomessage $ catMaybes
[ Just $ Param "commit" [ Just $ Param "--quiet"
, Just $ Param "--quiet"
{- In indirect mode, avoid running the {- In indirect mode, avoid running the
- usual git-annex pre-commit hook; - usual git-annex pre-commit hook;
- watch does the same symlink fixing, - watch does the same symlink fixing,
@ -95,7 +94,7 @@ commitStaged = do
- each other out, etc. Git returns nonzero on those, - each other out, etc. Git returns nonzero on those,
- so don't propigate out commit failures. -} - so don't propigate out commit failures. -}
void $ inRepo $ catchMaybeIO . void $ inRepo $ catchMaybeIO .
Git.Command.runQuiet params Git.Command.runQuiet (Param "commit" : params)
return True return True
where where
nomessage ps nomessage ps