From bc0583fc9a7addefba04d7068fa1799dd5906383 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 15 May 2013 18:46:38 -0400
Subject: start one git-cat-file per index file

This reverts a5031031f0d596b2381a785925beb574d90a862e and properly fixes
the issue discussed there.

This makes git-annex behave much nicer in direct mode.
---
 Annex/CatFile.hs | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

(limited to 'Annex')

diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs
index 292d62460..9de6f9856 100644
--- a/Annex/CatFile.hs
+++ b/Annex/CatFile.hs
@@ -1,6 +1,6 @@
 {- git cat-file interface, with handle automatically stored in the Annex monad
  -
- - Copyright 2011 Joey Hess <joey@kitenet.net>
+ - Copyright 2011-2013 Joey Hess <joey@kitenet.net>
  -
  - Licensed under the GNU GPL version 3 or higher.
  -}
@@ -15,6 +15,7 @@ module Annex.CatFile (
 ) where
 
 import qualified Data.ByteString.Lazy as L
+import qualified Data.Map as M
 
 import Common.Annex
 import qualified Git
@@ -37,13 +38,20 @@ catObjectDetails ref = do
 	h <- catFileHandle
 	liftIO $ Git.CatFile.catObjectDetails h ref
 
+{- There can be multiple index files, and a different cat-file is needed
+ - for each. This is selected by setting GIT_INDEX_FILE in the gitEnv. -}
 catFileHandle :: Annex Git.CatFile.CatFileHandle
-catFileHandle = maybe startup return =<< Annex.getState Annex.catfilehandle
-  where
-	startup = do
-		h <- inRepo Git.CatFile.catFileStart
-		Annex.changeState $ \s -> s { Annex.catfilehandle = Just h }
-		return h
+catFileHandle = do
+	m <- Annex.getState Annex.catfilehandles
+	indexfile <- fromMaybe "" . maybe Nothing (lookup "GIT_INDEX_FILE")
+		<$> fromRepo gitEnv
+	case M.lookup indexfile m of
+		Just h -> return h
+		Nothing -> do
+			h <- inRepo Git.CatFile.catFileStart
+			let m' = M.insert indexfile h m
+			Annex.changeState $ \s -> s { Annex.catfilehandles = m' }
+			return h
 
 {- From the Sha or Ref of a symlink back to the key. -}
 catKey :: Ref -> Annex (Maybe Key)
@@ -56,7 +64,7 @@ catKey ref = do
 {- From a file in git back to the key.
  -
  - Prefixing the file with ./ makes this work even if in a subdirectory
- - of a repo. For some reason, HEAD is sometimes needed.
+ - of a repo.
  -}
 catKeyFile :: FilePath -> Annex (Maybe Key)
-catKeyFile f = catKey $ Ref $ "HEAD:./" ++ f
+catKeyFile f = catKey $ Ref $ ":./" ++ f
-- 
cgit v1.2.3


From a243fb1c7f04817fa19209689849aa2fe8631b3d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 15 May 2013 19:15:40 -0400
Subject: fix toDirectGen bug introduced in
 7d345fcb307cfecb5fa834a0b17be01e4e6f5df8

---
 Annex/Direct.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Annex')

diff --git a/Annex/Direct.hs b/Annex/Direct.hs
index 596c90994..67822f2d5 100644
--- a/Annex/Direct.hs
+++ b/Annex/Direct.hs
@@ -191,6 +191,7 @@ toDirectGen k f = do
 		{- Move content from annex to direct file. -}
 		thawContentDir loc
 		updateInodeCache k loc
+		addAssociatedFile k f
 		thawContent loc
 		replaceFile f $ liftIO . moveFile loc
 	fromdirect = do
-- 
cgit v1.2.3