diff options
| -rw-r--r-- | Command/Direct.hs | 3 | ||||
| -rw-r--r-- | Command/Indirect.hs | 6 |
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 |