diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-03-01 12:35:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-03-01 12:35:16 -0400 |
| commit | c87570a497e03e9160a3c64e332e17788b04d11c (patch) | |
| tree | 2a58d84a2b875603b5fc579e57ae6e29622d093d /Backend.hs | |
| parent | b3efb438592ff42bc1de0a0f5fbaa897bbf7baf7 (diff) | |
convert error to giveup
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend.hs b/Backend.hs index 40b618355..da7d9f6e1 100644 --- a/Backend.hs +++ b/Backend.hs @@ -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 |