convert error to giveup
This commit is contained in:
parent
bd5b277c11
commit
de43d1d407
1 changed files with 1 additions and 1 deletions
|
@ -94,7 +94,7 @@ chooseBackend f = Annex.getState Annex.forcebackend >>= go
|
|||
lookupBackendVariety :: KeyVariety -> Backend
|
||||
lookupBackendVariety v = fromMaybe unknown $ maybeLookupBackendVariety v
|
||||
where
|
||||
unknown = error $ "unknown backend " ++ formatKeyVariety v
|
||||
unknown = giveup $ "unknown backend " ++ formatKeyVariety v
|
||||
|
||||
maybeLookupBackendVariety :: KeyVariety -> Maybe Backend
|
||||
maybeLookupBackendVariety v = M.lookup v varietyMap
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue