From e5514e0cb0809848645814e8c1f67cd89cb16c4f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Oct 2010 18:05:37 -0400
Subject: update

---
 GitRepo.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'GitRepo.hs')

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
-- 
cgit v1.2.3