summaryrefslogtreecommitdiff
path: root/Assistant/Threads/Committer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-03 15:18:24 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-03 15:18:24 -0400
commit49d0a553f8088862e9268942ebca5c5f36f5ff6b (patch)
tree5e58f788007a9ce85e35421c23604acf4dd7eb93 /Assistant/Threads/Committer.hs
parent221bc8eefe4860e04c0f51ca0e986ea68e3036e5 (diff)
fix
Diffstat (limited to 'Assistant/Threads/Committer.hs')
-rw-r--r--Assistant/Threads/Committer.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index 99d01b580..5887f5e43 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -82,8 +82,7 @@ commitStaged = do
Right _ -> do
direct <- isDirect
let params = nomessage $ catMaybes
- [ Just $ Param "commit"
- , Just $ Param "--quiet"
+ [ Just $ Param "--quiet"
{- In indirect mode, avoid running the
- usual git-annex pre-commit hook;
- watch does the same symlink fixing,
@@ -95,7 +94,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 params
+ Git.Command.runQuiet (Param "commit" : params)
return True
where
nomessage ps