foo
This commit is contained in:
parent
46ddb4e66a
commit
3ffc0bb4f5
2 changed files with 3 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue