summaryrefslogtreecommitdiff
path: root/GitRepo.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:05:37 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:05:37 -0400
commite5514e0cb0809848645814e8c1f67cd89cb16c4f (patch)
tree7041c952f9fa00fc60a40fa8e88fa1cd54818706 /GitRepo.hs
parentdce9c2e0804d2c94f46dcac8c9884766bb22dcc7 (diff)
update
Diffstat (limited to 'GitRepo.hs')
-rw-r--r--GitRepo.hs13
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