summaryrefslogtreecommitdiff
path: root/Types/Key.hs
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/Key.hs
parent8a7785e219c5aa08e0c91a813022e03cb92f16a3 (diff)
moved AssociatedFile definition
Diffstat (limited to 'Types/Key.hs')
-rw-r--r--Types/Key.hs6
1 files changed, 5 insertions, 1 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 = "",