make the webapp honor the web.browser git config

1 files changed, 10 insertions, 0 deletions

diff --git a/Git/Config.hs b/Git/Config.hs
index c82d6bb1b..0a720c1c0 100644
--- a/Git/Config.hs
+++ b/Git/Config.hs
@@ -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