diff options
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/Backend.hs b/Backend.hs index dded0d005..0fcaaa7ed 100644 --- a/Backend.hs +++ b/Backend.hs @@ -14,7 +14,8 @@ module Backend ( isAnnexLink, chooseBackend, lookupBackendName, - maybeLookupBackendName + maybeLookupBackendName, + isStableKey, ) where import Common.Annex @@ -32,6 +33,8 @@ import qualified Backend.Hash import qualified Backend.WORM import qualified Backend.URL +import qualified Data.Map as M + list :: [Backend] list = Backend.Hash.backends ++ Backend.WORM.backends ++ Backend.URL.backends @@ -116,7 +119,13 @@ lookupBackendName :: String -> Backend lookupBackendName s = fromMaybe unknown $ maybeLookupBackendName s where unknown = error $ "unknown backend " ++ s + maybeLookupBackendName :: String -> Maybe Backend -maybeLookupBackendName s = headMaybe matches - where - matches = filter (\b -> s == B.name b) list +maybeLookupBackendName s = M.lookup s nameMap + +nameMap :: M.Map String Backend +nameMap = M.fromList $ zip (map B.name list) list + +isStableKey :: Key -> Bool +isStableKey k = maybe False (`B.isStableKey` k) + (maybeLookupBackendName (keyBackendName k)) |