summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Command/Direct.hs3
-rw-r--r--Command/Indirect.hs6
2 files changed, 8 insertions, 1 deletions
diff --git a/Command/Direct.hs b/Command/Direct.hs
index 466b80014..598a7b4b3 100644
--- a/Command/Direct.hs
+++ b/Command/Direct.hs
@@ -33,6 +33,8 @@ perform = do
showOutput
_ <- inRepo $ Git.Command.runBool "commit"
[Param "-a", Param "-m", Param "commit before switching to direct mode"]
+ showEndOk
+
top <- fromRepo Git.repoPath
(l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
forM_ l go
@@ -63,5 +65,6 @@ perform = do
cleanup :: CommandCleanup
cleanup = do
+ showStart "direct" ""
setDirect True
return True
diff --git a/Command/Indirect.hs b/Command/Indirect.hs
index d176a3e32..058a7b750 100644
--- a/Command/Indirect.hs
+++ b/Command/Indirect.hs
@@ -35,6 +35,7 @@ perform = do
showOutput
void $ inRepo $ Git.Command.runBool "commit"
[Param "-m", Param "commit before switching to indirect mode"]
+ showEndOk
-- Note that we set indirect mode early, so that we can use
-- moveAnnex in indirect mode.
@@ -77,4 +78,7 @@ perform = do
liftIO . nukeFile =<< inRepo (gitAnnexMapping k)
cleanup :: CommandCleanup
-cleanup = return True
+cleanup = do
+ showStart "indirect" ""
+ showEndOk
+ return True