This commit is contained in:
Joey Hess 2012-12-13 16:00:17 -04:00
parent 2cfda59174
commit 44402159dd
2 changed files with 8 additions and 1 deletions

View file

@ -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