summaryrefslogtreecommitdiff
path: root/Types.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:25:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:25:31 -0400
commit026adce5a01381e9a802747f2ddf4ca5635468c9 (patch)
tree9ba02888b88a70dcc98dbad2138426c38a48b19d /Types.hs
parente5514e0cb0809848645814e8c1f67cd89cb16c4f (diff)
update
Diffstat (limited to 'Types.hs')
-rw-r--r--Types.hs11
1 files changed, 9 insertions, 2 deletions
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]
+}