moved AssociatedFile definition
This commit is contained in:
parent
7ae3223eab
commit
7a7e426352
13 changed files with 15 additions and 20 deletions
|
@ -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 = "",
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue