diff options
Diffstat (limited to 'Git/Config.hs')
| -rw-r--r-- | Git/Config.hs | 10 |
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 |