diff options
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 |