c7731cdbd9
Making GITBUNDLE be in the backend list allows those keys to be hashed to verify, both when git-remote-annex downloads them, and by other transfers and by git fsck. GITMANIFEST is not in the backend list, because those keys will never be stored in .git/annex/objects and can't be verified in any case. This does mean that git-annex version will include GITBUNDLE in the list of backends. Also documented these in backends.mdwn Sponsored-by: Kevin Mueller on Patreon
41 lines
1.2 KiB
Haskell
41 lines
1.2 KiB
Haskell
{- git-annex backend varieties
|
|
-
|
|
- Copyright 2012-2024 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Backend.Variety where
|
|
|
|
import qualified Data.Map as M
|
|
|
|
import Annex.Common
|
|
import Types.Key
|
|
import Types.Backend
|
|
import qualified Backend.External
|
|
|
|
-- When adding a new backend, import it here and add it to the builtinList.
|
|
import qualified Backend.Hash
|
|
import qualified Backend.WORM
|
|
import qualified Backend.URL
|
|
import qualified Backend.GitRemoteAnnex
|
|
|
|
{- Regular backends. Does not include externals or VURL. -}
|
|
regularBackendList :: [Backend]
|
|
regularBackendList = Backend.Hash.backends
|
|
++ Backend.WORM.backends
|
|
++ Backend.URL.backends
|
|
++ Backend.GitRemoteAnnex.backends
|
|
|
|
{- The default hashing backend. -}
|
|
defaultHashBackend :: Backend
|
|
defaultHashBackend = Prelude.head regularBackendList
|
|
|
|
makeVarietyMap :: [Backend] -> M.Map KeyVariety Backend
|
|
makeVarietyMap l = M.fromList $ zip (map backendVariety l) l
|
|
|
|
maybeLookupBackendVarietyMap :: KeyVariety -> M.Map KeyVariety Backend -> Annex (Maybe Backend)
|
|
maybeLookupBackendVarietyMap (ExternalKey s hasext) _varitymap =
|
|
Just <$> Backend.External.makeBackend s hasext
|
|
maybeLookupBackendVarietyMap v varietymap =
|
|
pure $ M.lookup v varietymap
|