diff options
Diffstat (limited to 'Backend.hs')
-rw-r--r-- | Backend.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Backend.hs b/Backend.hs index 99752c66f..0fcaaa7ed 100644 --- a/Backend.hs +++ b/Backend.hs @@ -15,7 +15,7 @@ module Backend ( chooseBackend, lookupBackendName, maybeLookupBackendName, - checkStableKey, + isStableKey, ) where import Common.Annex @@ -126,6 +126,6 @@ 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) +isStableKey :: Key -> Bool +isStableKey k = maybe False (`B.isStableKey` k) (maybeLookupBackendName (keyBackendName k)) |