Permalink
Browse files

Merge.hs: cleanup: shortened 'filter (`notElem` xs)' down to 'L.\\ xs'

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
1 parent 9324b46 commit b5678478425ac907c762d03b80bcd70454708455 @trofi trofi committed Dec 30, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 Merge.hs
View
@@ -259,8 +259,8 @@ mergeGenericPackageDescription verbosity overlayPath cat pkgGenericDesc fetch =
pop_from_pair ((lfa, ld), lx) ((rfa, rd), rx) = ((fa, d), x)
where fa = lfa `L.intersect` rfa
d = Portage.simplify_deps $ ld `L.intersect` rd
- x = (lfa, filter (`notElem` rd) ld)
- : (rfa, filter (`notElem` ld) rd)
+ x = (lfa, ld L.\\ rd)
+ : (rfa, rd L.\\ ld)
: lx ++ rx
simplify :: [FlagDepH] -> [Portage.Dependency]

0 comments on commit b567847

Please sign in to comment.