moved AssociatedFile definition

This commit is contained in:
Joey Hess 2013-07-04 02:36:02 -04:00
parent 7ae3223eab
commit 7a7e426352
13 changed files with 15 additions and 20 deletions

View file

@ -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 = "",