This commit is contained in:
Joey Hess 2010-10-12 12:31:19 -04:00
parent 10b7c405fa
commit 8a3ea4edcb

View file

@ -174,7 +174,7 @@ gitConfigParse s = Map.fromList $ map pair $ lines s
{- Returns a single git config setting, or a default value if not set. -} {- Returns a single git config setting, or a default value if not set. -}
gitConfig :: GitRepo -> String -> String -> String gitConfig :: GitRepo -> String -> String -> String
gitConfig repo key defaultValue = gitConfig repo key defaultValue =
Map.findWithDefault key defaultValue (config repo) Map.findWithDefault defaultValue key (config repo)
{- Returns a list of a repo's configured remotes. -} {- Returns a list of a repo's configured remotes. -}
gitConfigRemotes :: GitRepo -> IO [GitRepo] gitConfigRemotes :: GitRepo -> IO [GitRepo]