diff options
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 |