make the webapp honor the web.browser git config

This commit is contained in:
Joey Hess 2012-08-08 13:15:35 -04:00
parent 7e2d07484f
commit fb4b19deed
2 changed files with 26 additions and 6 deletions

View file

@ -54,6 +54,16 @@ read' repo = go repo
params = ["config", "--null", "--list"]
p = (proc "git" params) { cwd = Just d }
{- Gets the global git config, returning a dummy Repo containing it. -}
global :: IO Repo
global = do
repo <- Git.Construct.fromUnknown
withHandle StdoutHandle createProcessSuccess p $
hRead repo
where
params = ["config", "--null", "--list", "--global"]
p = (proc "git" params)
{- Reads git config from a handle and populates a repo with it. -}
hRead :: Repo -> Handle -> IO Repo
hRead repo h = do