From 026adce5a01381e9a802747f2ddf4ca5635468c9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Oct 2010 18:25:31 -0400
Subject: update

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

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index 2308b6fde..cab4b2016 100644
--- a/Types.hs
+++ b/Types.hs
@@ -3,8 +3,10 @@
 
 module Types where
 
+-- annexed filenames are mapped into keys
 type Key = String
 
+-- this structure represents a key/value backend
 data Backend = Backend {
 	-- name of this backend
 	name :: String,
@@ -16,9 +18,14 @@ data Backend = Backend {
 	retrieveKeyFile :: IO Key -> FilePath -> IO (Bool)
 }
 
+-- a git repository
 data GitRepo = GitRepo {
 	top :: FilePath,
-	remotes :: [GitRepo],
-	backends :: [Backend]
+	remotes :: [GitRepo]
 }
 
+-- git-annex's runtime state
+data State = State {
+	repo :: GitRepo,
+	backends :: [Backend]
+}
-- 
cgit v1.2.3