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

optimize pre-commit in direct mode

Browse source
This commit is contained in:
Joey Hess 2013-01-06 16:56:55 -04:00
parent 7888b38e3e
commit f12202f771
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/PreCommit.hs
View file

@ -11,7 +11,6 @@ import Common.Annex
import Command
import qualified Command.Add
import qualified Command.Fix
import Config
def :: [Command]
def = [command "pre-commit" paramPaths seek "run by git pre-commit hook"]
@ -20,12 +19,9 @@ def = [command "pre-commit" paramPaths seek "run by git pre-commit hook"]
- And, it needs to inject unlocked files into the annex. -}
seek :: [CommandSeek]
seek =
[ withFilesToBeCommitted $ whenNotDirect $ whenAnnexed $ Command.Fix.start
[ whenNotDirect $ withFilesToBeCommitted $ whenAnnexed $ Command.Fix.start
, withFilesUnlockedToBeCommitted start]
whenNotDirect :: (FilePath -> Annex (Maybe CommandPerform)) -> FilePath -> Annex (Maybe CommandPerform)
whenNotDirect a f = ifM isDirect ( stop , a f )
start :: FilePath -> CommandStart
start file = next $ perform file