diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
| commit | 236c467da19f34edb08f124e37fd26eb62c43fcf (patch) | |
| tree | f4e488f77fb954812e4d48f399fc2ecab072afea /Backend.hs | |
| parent | f013f71cb5d3f7eee3afb3eb8f01a33206d717c4 (diff) | |
more lambda-case conversion
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Backend.hs b/Backend.hs index c39141f37..af033a63b 100644 --- a/Backend.hs +++ b/Backend.hs @@ -52,8 +52,7 @@ defaultBackend = maybe cache return =<< Annex.getState Annex.backend genKey :: KeySource -> Maybe Backend -> Annex (Maybe (Key, Backend)) genKey source preferredbackend = do b <- maybe defaultBackend return preferredbackend - r <- B.getKey b source - return $ case r of + B.getKey b source >>= return . \case Nothing -> Nothing Just k -> Just (makesane k, b) where |