diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-15 16:57:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-15 16:59:52 -0400 |
| commit | 5ff04bf2afcc62d1762adbc1c2a0374952328c0f (patch) | |
| tree | a2d6bfac942582573d71ffe394f1c867688f8024 /Command/PreCommit.hs | |
| parent | 35145202d2e463569989b710ab5b87f6d9a8fdc1 (diff) | |
tweak
Diffstat (limited to 'Command/PreCommit.hs')
| -rw-r--r-- | Command/PreCommit.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/PreCommit.hs b/Command/PreCommit.hs index bcc1c943e..b6323e2b7 100644 --- a/Command/PreCommit.hs +++ b/Command/PreCommit.hs @@ -10,6 +10,7 @@ module Command.PreCommit where import Command import qualified Command.Add import qualified Command.Fix +import Backend command :: [Command] command = [repoCommand "pre-commit" paramPaths seek "run by git pre-commit hook"] @@ -24,7 +25,7 @@ start :: BackendFile -> CommandStart start p = next $ perform p perform :: BackendFile -> CommandPerform -perform pair@(file, _) = do +perform pair@(_, file) = do ok <- doCommand $ Command.Add.start pair if ok then next $ return True |