diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-30 12:01:56 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-30 12:13:34 -0400 |
commit | 1b0edc1ab2f3516dc532b0cf4ea39a0af2f6392f (patch) | |
tree | 2f552619d5f283672c79d405c709661a6046c8ec /UUID.hs | |
parent | 96e561bc477bd0a4bbffb769369fabe1e1e1982f (diff) |
idiomatic elem
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |