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/Direct.hs | |
| parent | 7694cf98f6f3aa8010846d3a5e3140c5c44154f2 (diff) | |
add ok's
Diffstat (limited to 'Command/Direct.hs')
| -rw-r--r-- | Command/Direct.hs | 3 |
1 files changed, 3 insertions, 0 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 |