diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-13 16:00:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-13 16:02:10 -0400 |
| commit | d6655998842b4c1dab5f1635ea081ce6739a9b3f (patch) | |
| tree | c6ac9a4e02cfa629619f1c77835a0dd4cc49e551 /Command | |
| parent | 7694cf98f6f3aa8010846d3a5e3140c5c44154f2 (diff) | |
add ok's
Diffstat (limited to 'Command')
| -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 |