hlint
This commit is contained in:
parent
e7aaa55c53
commit
a1e52f0ce5
18 changed files with 36 additions and 37 deletions
|
@ -60,7 +60,7 @@ genKey file trybackend = do
|
|||
genKey' :: [Backend] -> FilePath -> Annex (Maybe (Key, Backend))
|
||||
genKey' [] _ = return Nothing
|
||||
genKey' (b:bs) file = do
|
||||
r <- (B.getKey b) file
|
||||
r <- B.getKey b file
|
||||
case r of
|
||||
Nothing -> genKey' bs file
|
||||
Just k -> return $ Just (makesane k, b)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue