summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
Diffstat (limited to 'Types')
-rw-r--r--Types/Key.hs6
-rw-r--r--Types/Remote.hs3
2 files changed, 5 insertions, 4 deletions
diff --git a/Types/Key.hs b/Types/Key.hs
index 51449ca33..910819a14 100644
--- a/Types/Key.hs
+++ b/Types/Key.hs
@@ -9,6 +9,7 @@
module Types.Key (
Key(..),
+ AssociatedFile,
stubKey,
key2file,
file2key,
@@ -21,7 +22,7 @@ import System.Posix.Types
import Common
import Utility.QuickCheck
-{- A Key has a unique name, is associated with a key/value backend,
+{- A Key has a unique name, which is derived from a particular backend,
- and may contain other optional metadata. -}
data Key = Key {
keyName :: String,
@@ -30,6 +31,9 @@ data Key = Key {
keyMtime :: Maybe EpochTime
} deriving (Eq, Ord, Read, Show)
+{- A filename may be associated with a Key. -}
+type AssociatedFile = Maybe FilePath
+
stubKey :: Key
stubKey = Key {
keyName = "",
diff --git a/Types/Remote.hs b/Types/Remote.hs
index 98cac37e4..8492be06d 100644
--- a/Types/Remote.hs
+++ b/Types/Remote.hs
@@ -37,9 +37,6 @@ data RemoteTypeA a = RemoteType {
instance Eq (RemoteTypeA a) where
x == y = typename x == typename y
-{- A filename associated with a Key, for display to user. -}
-type AssociatedFile = Maybe FilePath
-
{- An individual remote. -}
data RemoteA a = Remote {
-- each Remote has a unique uuid