mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

layout

Browse source
This commit is contained in:
Joey Hess 2013-07-04 02:45:46 -04:00
parent 7a7e426352
commit e214114d3b
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Types/Key.hs
View file

@ -24,22 +24,22 @@ import Utility.QuickCheck
{- A Key has a unique name, which is derived from a particular backend, {- A Key has a unique name, which is derived from a particular backend,
- and may contain other optional metadata. -} - and may contain other optional metadata. -}
data Key = Key { data Key = Key
keyName :: String, { keyName :: String
keyBackendName :: String, , keyBackendName :: String
keySize :: Maybe Integer, , keySize :: Maybe Integer
keyMtime :: Maybe EpochTime , keyMtime :: Maybe EpochTime
} deriving (Eq, Ord, Read, Show) } deriving (Eq, Ord, Read, Show)
{- A filename may be associated with a Key. -} {- A filename may be associated with a Key. -}
type AssociatedFile = Maybe FilePath type AssociatedFile = Maybe FilePath
stubKey :: Key stubKey :: Key
stubKey = Key { stubKey = Key
keyName = "", { keyName = ""
keyBackendName = "", , keyBackendName = ""
keySize = Nothing, , keySize = Nothing
keyMtime = Nothing , keyMtime = Nothing
} }
fieldSep :: Char fieldSep :: Char