mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use indexEnv

Browse source
This commit is contained in:
Joey Hess 2016-05-17 13:30:59 -04:00
parent 93c03b5dd5
commit e91037a38b
Failed to extract signature
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Annex/CatFile.hs
View file

@ -30,6 +30,7 @@ import qualified Git.CatFile
import qualified Annex
import Git.Types
import Git.FilePath
import Git.Index
import qualified Git.Ref
import Annex.Link
@ -68,7 +69,7 @@ catObjectDetails ref = do
catFileHandle :: Annex Git.CatFile.CatFileHandle
catFileHandle = do
m <- Annex.getState Annex.catfilehandles
indexfile <- fromMaybe "" . maybe Nothing (lookup "GIT_INDEX_FILE")
indexfile <- fromMaybe "" . maybe Nothing (lookup indexEnv)
<$> fromRepo gitEnv
case M.lookup indexfile m of
Just h -> return h

3
Annex/GitOverlay.hs
View file

@ -12,6 +12,7 @@ import qualified Control.Exception as E
import Annex.Common
import Git
import Git.Types
import Git.Index
import Git.Env
import qualified Annex
@ -21,7 +22,7 @@ withIndexFile f a = do
-- Workaround http://thread.gmane.org/gmane.comp.version-control.git/294880
absf <- liftIO $ absPath f
withAltRepo
(\g -> addGitEnv g "GIT_INDEX_FILE" absf)
(\g -> addGitEnv g indexEnv absf)
(\g g' -> g' { gitEnv = gitEnv g })
a