diff options
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 |