aboutsummaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-16 19:43:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-16 19:43:32 -0400
commitbe5b1defeb2f3b5499fd3c002fcdba5b5e9d15f5 (patch)
tree1c6ea3d755aa0cc3cc41aab4864e21c16a75c778 /Core.hs
parentb3e5590fb2995d73d5e69a3954fcb11d9fe98d28 (diff)
add --no-commit option
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Core.hs b/Core.hs
index fcbce4163..6e48068f9 100644
--- a/Core.hs
+++ b/Core.hs
@@ -24,8 +24,9 @@ startup flags = do
shutdown :: Annex ()
shutdown = do
g <- Annex.gitRepo
+ nocommit <- Annex.flagIsSet NoCommit
needcommit <- Annex.flagIsSet NeedCommit
- if (needcommit)
+ if (needcommit && not nocommit)
then liftIO $ Git.run g ["commit", "-q", "-m",
"git-annex log update", gitStateDir g]
else return ()