idiomatic elem

1 files changed, 2 insertions, 2 deletions

diff --git a/UUID.hs b/UUID.hs
index ec6702689..a654424b4 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -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