diff options
Diffstat (limited to 'Git/Types.hs')
-rw-r--r-- | Git/Types.hs | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index 0c37427c7..57e5ca6e2 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -27,15 +27,17 @@ data RepoLocation | Unknown deriving (Show, Eq) -data Repo = Repo { - location :: RepoLocation, - config :: M.Map String String, +data Repo = Repo + { location :: RepoLocation + , config :: M.Map String String -- a given git config key can actually have multiple values - fullconfig :: M.Map String [String], - remotes :: [Repo], + , fullconfig :: M.Map String [String] + , remotes :: [Repo] -- remoteName holds the name used for this repo in remotes - remoteName :: Maybe String -} deriving (Show, Eq) + , remoteName :: Maybe String + -- alternate environment to use when running git commands + , gitEnv :: Maybe [(String, String)] + } deriving (Show, Eq) {- A git ref. Can be a sha1, or a branch or tag name. -} newtype Ref = Ref String |