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

---
 GitRepo.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'GitRepo.hs')

diff --git a/GitRepo.hs b/GitRepo.hs
index 8974d9db6..690782f0d 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -57,15 +57,22 @@ gitPrep repo = do
 	attributes <- gitAttributes repo
 	exists <- doesFileExist attributes
 	if (not exists)
-		then writeFile attributes $ attrLine ++ "\n"
+		then do
+			writeFile attributes $ attrLine ++ "\n"
+			gitAdd repo attributes
 		else do
 			content <- readFile attributes
 			if (all (/= attrLine) (lines content))
 				then do
 					appendFile attributes $ attrLine ++ "\n"
-					-- TODO check attributes file into git?
+					gitAdd repo attributes
 				else return ()
 
+{- Stages a changed file in git's index. -}
+gitAdd repo file = do
+	-- TODO
+	return ()
+
 {- Finds the top of the current git repository, which may be in a parent
  - directory. -}
 repoTop :: IO GitRepo
-- 
cgit v1.2.3