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

thread safe git-annex index file use

Browse source
This commit is contained in:
Joey Hess 2012-08-24 20:50:39 -04:00
parent 8de7699f39
commit c9b3b8829d
9 changed files with 108 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Git/Config.hs
View file

@ -9,7 +9,7 @@ module Git.Config where
import qualified Data.Map as M
import Data.Char
import System.Process (cwd)
import System.Process (cwd, env)
import Common
import Git
@ -52,7 +52,10 @@ read' repo = go repo
hRead repo
where
params = ["config", "--null", "--list"]
p = (proc "git" params) { cwd = Just d }
p = (proc "git" params)
{ cwd = Just d
, env = gitEnv repo
}
{- Gets the global git config, returning a dummy Repo containing it. -}
global :: IO Repo