mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add ok's

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/Direct.hs
View file

@ -33,6 +33,8 @@ perform = do
showOutput showOutput
_ <- inRepo $ Git.Command.runBool "commit" _ <- inRepo $ Git.Command.runBool "commit"
[Param "-a", Param "-m", Param "commit before switching to direct mode"] [Param "-a", Param "-m", Param "commit before switching to direct mode"]
showEndOk
top <- fromRepo Git.repoPath top <- fromRepo Git.repoPath
(l, clean) <- inRepo $ Git.LsFiles.inRepo [top] (l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
forM_ l go forM_ l go
@ -63,5 +65,6 @@ perform = do
cleanup :: CommandCleanup cleanup :: CommandCleanup
cleanup = do cleanup = do
showStart "direct" ""
setDirect True setDirect True
return True return True

6
Command/Indirect.hs
View file

@ -35,6 +35,7 @@ perform = do
showOutput showOutput
void $ inRepo $ Git.Command.runBool "commit" void $ inRepo $ Git.Command.runBool "commit"
[Param "-m", Param "commit before switching to indirect mode"] [Param "-m", Param "commit before switching to indirect mode"]
showEndOk
-- Note that we set indirect mode early, so that we can use -- Note that we set indirect mode early, so that we can use
-- moveAnnex in indirect mode. -- moveAnnex in indirect mode.
@ -77,4 +78,7 @@ perform = do
liftIO . nukeFile =<< inRepo (gitAnnexMapping k) liftIO . nukeFile =<< inRepo (gitAnnexMapping k)
cleanup :: CommandCleanup cleanup :: CommandCleanup
cleanup = return True cleanup = do
showStart "indirect" ""
showEndOk
return True