convert error to giveup

This commit is contained in:
Joey Hess 2017-03-01 12:35:16 -04:00
parent bd5b277c11
commit de43d1d407
No known key found for this signature in database
GPG key ID: C910D9222512E3C7

View file

@ -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