diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-07-04 02:36:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-07-04 02:36:02 -0400 |
| commit | 6b3a9cdaddec120f27e947e03ece5ee2ebde1d14 (patch) | |
| tree | 14ee0b96ed66ba71fe2843f002f4f56f915c9ff5 /Types | |
| parent | 8a7785e219c5aa08e0c91a813022e03cb92f16a3 (diff) | |
moved AssociatedFile definition
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Key.hs | 6 | ||||
| -rw-r--r-- | Types/Remote.hs | 3 |
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 |