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 2012-06-06 11:58:08 -04:00
parent f596084a59
commit 455fca65bf
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Types/Backend.hs
View file

@ -18,14 +18,11 @@ data KeySource = KeySource
, contentLocation :: FilePath
}
data BackendA a = Backend {
-- name of this backend
name :: String,
-- gets the key to use for a given content
getKey :: KeySource -> a (Maybe Key),
-- called during fsck to check a key, if the backend has its own checks
fsckKey :: Maybe (Key -> FilePath -> a Bool)
}
data BackendA a = Backend
{ name :: String
, getKey :: KeySource -> a (Maybe Key)
, fsckKey :: Maybe (Key -> FilePath -> a Bool)
}
instance Show (BackendA a) where
show backend = "Backend { name =\"" ++ name backend ++ "\" }"