This commit is contained in:
Joey Hess 2011-08-06 12:50:20 -04:00
parent 46ddb4e66a
commit 3ffc0bb4f5
2 changed files with 3 additions and 3 deletions

View file

@ -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