From 168f26320bb4dd0bc76e4c0c0b7383c1f6f6f661 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Mar 2016 16:12:55 -0400 Subject: use hash-object --batch Handle was plumbed through, but not used. --- Annex/Branch.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Annex') diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 6ef778801..a46a90ee9 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -564,7 +564,7 @@ performTransitionsLocked jl ts neednewlocalbranch transitionedrefs = do -- transitions on it. return () ChangeFile content' -> do - sha <- inRepo $ hashObject BlobObject content' + sha <- liftIO $ hashBlob hasher content' Annex.Queue.addUpdateIndex $ Git.UpdateIndex.pureStreamer $ Git.UpdateIndex.updateIndexLine sha FileBlob (asTopFilePath file) apply rest hasher file content' trustmap -- cgit v1.2.3