diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-10 18:05:37 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-10 18:05:37 -0400 |
commit | e5514e0cb0809848645814e8c1f67cd89cb16c4f (patch) | |
tree | 7041c952f9fa00fc60a40fa8e88fa1cd54818706 /GitRepo.hs | |
parent | dce9c2e0804d2c94f46dcac8c9884766bb22dcc7 (diff) |
update
Diffstat (limited to 'GitRepo.hs')
-rw-r--r-- | GitRepo.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index fda83f7d8..a0909d5ec 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -7,17 +7,18 @@ import System.Directory import System.Path import Data.String.Utils import Utility - -data GitRepo = GitRepo { - top :: FilePath, - remotes :: [GitRepo] -} deriving (Eq, Show, Read) +import Types +import BackendList {- GitRepo constructor -} gitRepo :: FilePath -> IO GitRepo gitRepo dir = do -- TOOD query repo for configuration settings; other repositories; etc - return GitRepo { top = dir, remotes = [] } + return GitRepo { + top = dir, + remotes = [], + backends = supportedBackends + } {- Path to a repository's gitattributes file. -} gitAttributes :: GitRepo -> IO String |