aboutsummaryrefslogtreecommitdiff
path: root/Types.hs
diff options
context:
space:
mode:
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]
+}