summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-07-04 02:36:02 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-07-04 02:36:02 -0400
commit6b3a9cdaddec120f27e947e03ece5ee2ebde1d14 (patch)
tree14ee0b96ed66ba71fe2843f002f4f56f915c9ff5 /Types
parent8a7785e219c5aa08e0c91a813022e03cb92f16a3 (diff)
moved AssociatedFile definition
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