summaryrefslogtreecommitdiff
path: root/git-annex-shell.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-28 15:41:52 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-28 15:41:52 -0400
commitb81d662cbf0036d0e2b632ed95a877feab2a4860 (patch)
tree210d8138f9cde552ebe450fbbdc2a6d6508086b2 /git-annex-shell.hs
parent303666965ab5bc891c8ed44969553afb642c3f9c (diff)
Avoid repeated location log commits when a remote is receiving files.
Done by adding a oneshot mode, in which location log changes are written to the journal, but not committed. Taking advantage of git-annex's existing ability to recover in this situation. This is used by git-annex-shell and other places where changes are made to a remote's location log.
Diffstat (limited to 'git-annex-shell.hs')
-rw-r--r--git-annex-shell.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs
index 4fdeae1a8..e747a447b 100644
--- a/git-annex-shell.hs
+++ b/git-annex-shell.hs
@@ -82,7 +82,7 @@ builtins = map cmdname cmds
builtin :: String -> String -> [String] -> IO ()
builtin cmd dir params = do
checkNotReadOnly cmd
- dispatch (cmd : filterparams params) cmds options header $
+ dispatch True (cmd : filterparams params) cmds options header $
Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath
external :: [String] -> IO ()