diff options
Diffstat (limited to 'Backend.hs')
-rw-r--r-- | Backend.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Backend.hs b/Backend.hs index 245e79ec2..99752c66f 100644 --- a/Backend.hs +++ b/Backend.hs @@ -14,7 +14,8 @@ module Backend ( isAnnexLink, chooseBackend, lookupBackendName, - maybeLookupBackendName + maybeLookupBackendName, + checkStableKey, ) where import Common.Annex @@ -124,3 +125,7 @@ maybeLookupBackendName s = M.lookup s nameMap nameMap :: M.Map String Backend nameMap = M.fromList $ zip (map B.name list) list + +checkStableKey :: Key -> Bool +checkStableKey k = maybe False (`B.isStableKey` k) + (maybeLookupBackendName (keyBackendName k)) |