rename getKey to genKey
for consistency with external backend protocol
This commit is contained in:
parent
d1300eca2e
commit
c4cc2cdf4c
8 changed files with 13 additions and 13 deletions
|
@ -584,7 +584,7 @@ backend_ :: String -> Types.Backend
|
|||
backend_ = Backend.lookupBackendVariety . Types.Key.parseKeyVariety . encodeBS
|
||||
|
||||
getKey :: Types.Backend -> FilePath -> IO Types.Key
|
||||
getKey b f = case Types.Backend.getKey b of
|
||||
getKey b f = case Types.Backend.genKey b of
|
||||
Just a -> annexeval $ a ks Utility.Metered.nullMeterUpdate
|
||||
Nothing -> error "internal"
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue