mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

idiomatic elem

Browse source
This commit is contained in:
Joey Hess 2011-01-30 12:01:56 -04:00
parent 96e561bc47
commit 1b0edc1ab2
5 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
UUID.hs
View file

@ -88,7 +88,7 @@ reposByUUID repos uuids = filterM match repos
where
match r = do
u <- getUUID r
return $ elem u uuids
return $ u `elem` uuids
{- Filters a list of repos to ones that do not have the listed UUIDs. -}
reposWithoutUUID :: [Git.Repo] -> [UUID] -> Annex [Git.Repo]
@ -96,7 +96,7 @@ reposWithoutUUID repos uuids = filterM unmatch repos
where
unmatch r = do
u <- getUUID r
return $ not $ elem u uuids
return $ u `notElem` uuids
{- Pretty-prints a list of UUIDs -}
prettyPrintUUIDs :: [UUID] -> Annex String