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

reorder for better display

Browse source
This commit is contained in:
Joey Hess 2012-12-13 15:58:38 -04:00
parent 5df3c66a85
commit 2cfda59174
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Sync.hs
View file

@ -80,7 +80,6 @@ syncRemotes rs = ifM (Annex.getState Annex.fast) ( nub <$> pickfast , wanted )
commit :: CommandStart commit :: CommandStart
commit = next $ next $ do commit = next $ next $ do
Annex.Branch.commit "update"
ifM isDirect ifM isDirect
( ifM stageDirect ( ifM stageDirect
( runcommit [] , return True ) ( runcommit [] , return True )
@ -90,6 +89,7 @@ commit = next $ next $ do
runcommit ps = do runcommit ps = do
showStart "commit" "" showStart "commit" ""
showOutput showOutput
Annex.Branch.commit "update"
-- Commit will fail when the tree is clean, so ignore failure. -- Commit will fail when the tree is clean, so ignore failure.
_ <- inRepo $ Git.Command.runBool "commit" $ ps ++ _ <- inRepo $ Git.Command.runBool "commit" $ ps ++
[Param "-m", Param "git-annex automatic sync"] [Param "-m", Param "git-annex automatic sync"]