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
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 , contentLocation :: FilePath
} }
data BackendA a = Backend { data BackendA a = Backend
-- name of this backend { name :: String
name :: String, , getKey :: KeySource -> a (Maybe Key)
-- gets the key to use for a given content , fsckKey :: Maybe (Key -> FilePath -> a Bool)
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)
}
instance Show (BackendA a) where instance Show (BackendA a) where
show backend = "Backend { name =\"" ++ name backend ++ "\" }" show backend = "Backend { name =\"" ++ name backend ++ "\" }"