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

revert bad change

Browse source 
I was wrong about git-config's level of smarts
This commit is contained in:
Joey Hess 2010-10-12 12:35:05 -04:00
parent 8a3ea4edcb
commit e4bc7e599a
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
GitRepo.hs
View file

@ -136,11 +136,7 @@ gitRm repo file = runGit repo ["rm", file]
gitCommandLine :: GitRepo -> [String] -> [String] gitCommandLine :: GitRepo -> [String] -> [String]
gitCommandLine repo params = assertlocal repo $ gitCommandLine repo params = assertlocal repo $
-- force use of specified repo via --git-dir and --work-tree -- force use of specified repo via --git-dir and --work-tree
-- gitDir cannot be used for --git-dir because the config may ["--git-dir="++(gitDir repo), "--work-tree="++(top repo)] ++ params
-- not have been read (and gitConfigRead relies on this function).
-- So this relies on git doing the right thing when told that
-- --git-dir is the top of a work tree.
["--git-dir="++(top repo), "--work-tree="++(top repo)] ++ params
{- Runs git in the specified repo. -} {- Runs git in the specified repo. -}
runGit :: GitRepo -> [String] -> IO () runGit :: GitRepo -> [String] -> IO ()