rest of the deserializeKey renameing
This commit is contained in:
parent
1791447cc8
commit
303e828b7c
15 changed files with 19 additions and 19 deletions
|
@ -79,7 +79,7 @@ mkKey :: String -> Key
|
|||
mkKey s = case parseURI s of
|
||||
Just u | not (isKeyPrefix (uriScheme u)) ->
|
||||
Backend.URL.fromUrl s Nothing
|
||||
_ -> case file2key s of
|
||||
_ -> case deserializeKey s of
|
||||
Just k -> k
|
||||
Nothing -> giveup $ "bad key/url " ++ s
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue