diff --git a/Command/PreCommit.hs b/Command/PreCommit.hs index d7f2487137..6d8f7b9b3f 100644 --- a/Command/PreCommit.hs +++ b/Command/PreCommit.hs @@ -33,15 +33,5 @@ perform :: BackendFile -> CommandPerform perform pair@(file, _) = do ok <- doCommand $ Command.Add.start pair if ok - then next $ cleanup file + then next $ return True else error $ "failed to add " ++ file ++ "; canceling commit" - -cleanup :: FilePath -> CommandCleanup -cleanup file = do - -- git commit will have staged the file's content; - -- drop that and run command queued by Add.state to - -- stage the symlink - g <- Annex.gitRepo - liftIO $ Git.run g "reset" [Params "-q --", File file] - AnnexQueue.flush True - return True diff --git a/debian/changelog b/debian/changelog index 393a6161bd..ceb218de55 100644 --- a/debian/changelog +++ b/debian/changelog @@ -5,6 +5,7 @@ git-annex (0.20110523) UNRELEASED; urgency=low `git reset`, and only running `git checkout` once, even when many files are being locked. * Fix locking of files with staged changes. + * Somewhat sped up `git commit` of modifications to unlocked files. -- Joey Hess Sat, 28 May 2011 22:29:37 -0400