diff options
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 3429e8f42..6942692e8 100644 --- a/Backend.hs +++ b/Backend.hs @@ -65,7 +65,7 @@ orderedList = do genKey :: FilePath -> Maybe (Backend Annex) -> Annex (Maybe (Key, Backend Annex)) genKey file trybackend = do bs <- orderedList - let bs' = maybe bs (:bs) trybackend + let bs' = maybe bs (: bs) trybackend genKey' bs' file genKey' :: [Backend Annex] -> FilePath -> Annex (Maybe (Key, Backend Annex)) genKey' [] _ = return Nothing |