cache whether a repo is bare

2 files changed, 6 insertions, 4 deletions

diff --git a/GitRepo.hs b/GitRepo.hs
index 06da2ff88..ef76fb976 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -12,17 +12,19 @@ import Types
 {- GitRepo constructor -}
 gitRepo :: FilePath -> IO GitRepo
 gitRepo dir = do
+	b <- isBareRepo dir
+
 	-- TOOD query repo for configuration settings; other repositories; etc
 	return GitRepo {
 		top = dir,
+		bare = b,
 		remotes = []
 	}
 
 {- Path to a repository's gitattributes file. -}
 gitAttributes :: GitRepo -> IO String
 gitAttributes repo = do
-	bare <- isBareRepo (top repo)
-	if (bare)
+	if (bare repo)
 		then return $ (top repo) ++ "/info/.gitattributes"
 		else return $ (top repo) ++ "/.gitattributes"
 
@@ -31,8 +33,7 @@ gitAttributes repo = do
  - TODO: support GIT_DIR -}
 gitDir :: GitRepo -> IO String
 gitDir repo = do
-	bare <- isBareRepo (top repo)
-	if (bare)
+	if (bare repo)
 		then return $ (top repo)
 		else return $ (top repo) ++ "/.git"
 
diff --git a/Types.hs b/Types.hs
index cab4b2016..e1f598f0f 100644
--- a/Types.hs
+++ b/Types.hs
@@ -21,6 +21,7 @@ data Backend = Backend {
 -- a git repository
 data GitRepo = GitRepo {
 	top :: FilePath,
+	bare :: Bool,
 	remotes :: [GitRepo]
 }