Permalink
Browse files

Merge.hs: cleanup: add type declaration to local definition

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
1 parent 0c106c2 commit b3c980e836f1cac95954842319dae3eb3897781e @trofi trofi committed Dec 29, 2013
Showing with 1 addition and 0 deletions.
  1. +1 −0 Merge.hs
View
1 Merge.hs
@@ -226,6 +226,7 @@ mergeGenericPackageDescription verbosity overlayPath cat pkgGenericDesc fetch =
-- flags that are failed to resolve
deadFlags = filter (\x -> all (x/=) $ map fst deps1) all_possible_flag_assignments
-- and finally prettify all deps:
+ tdeps :: Merge.EDep
tdeps = (L.foldl' (\x y -> x `mappend` (snd y)) mempty deps1){
Merge.dep = Portage.sortDeps . simplify $ map (\x -> (x,[])) $ map (first (filter (\x -> all (x/=) commonFlags))) $ map (second Merge.dep) deps1
, Merge.rdep = Portage.sortDeps . simplify $ map (\x -> (x,[])) $ map (first (filter (\x -> all (x/=) commonFlags))) $ map (second Merge.rdep) deps1

0 comments on commit b3c980e

Please sign in to comment.