diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-06 12:50:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-06 12:50:20 -0400 |
| commit | 3ffc0bb4f57e20350f59c0e331656e54877916aa (patch) | |
| tree | d3515f7e4b6629609a82f51fa535f0330c24a4c8 /Backend.hs | |
| parent | 46ddb4e66aa1ba2a569eb8734c8ca0f40f3930d4 (diff) | |
foo
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 |