From 90db9740d0d64b34f2e46f57f8aaca235088734c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Mar 2016 15:58:46 -0400 Subject: Sped up git-annex add in direct mode and v6 by using git hash-object --batch. Speeds up hashSymlink and hashPointerFile. --- Annex.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Annex.hs') diff --git a/Annex.hs b/Annex.hs index 6a3d0cebb..fe6802776 100644 --- a/Annex.hs +++ b/Annex.hs @@ -42,6 +42,7 @@ import qualified Git import qualified Git.Config import Annex.Fixup import Git.CatFile +import Git.HashObject import Git.CheckAttr import Git.CheckIgnore import qualified Git.Hook @@ -106,6 +107,7 @@ data AnnexState = AnnexState , branchstate :: BranchState , repoqueue :: Maybe Git.Queue.Queue , catfilehandles :: M.Map FilePath CatFileHandle + , hashobjecthandle :: Maybe HashObjectHandle , checkattrhandle :: Maybe CheckAttrHandle , checkignorehandle :: Maybe (Maybe CheckIgnoreHandle) , forcebackend :: Maybe String @@ -151,6 +153,7 @@ newState c r = AnnexState , branchstate = startBranchState , repoqueue = Nothing , catfilehandles = M.empty + , hashobjecthandle = Nothing , checkattrhandle = Nothing , checkignorehandle = Nothing , forcebackend = Nothing -- cgit v1.2.3