Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge.hs: cleanup: move comment

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
commit 2b5c12abc9c203ba503ac17632dbe5cb90644bef 1 parent b3c980e
@trofi trofi authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Merge.hs
View
2  Merge.hs
@@ -300,13 +300,13 @@ mergeGenericPackageDescription verbosity overlayPath cat pkgGenericDesc fetch =
else liftFlags [u] (simplify $ map (\x -> (x,[])) $ dropFlag u xs')++simplifyMore ls
in (liftFlags fl c) ++ simplifyMore (sd ++ ys)
- -- drop selected use flag from a list
getMultiFlags :: [FlagDep] -> [((Cabal.FlagName,Bool),Int)]
getMultiFlags ys = go [] (concatMap fst ys)
where go a [] = a
go a (x:xs) = case lookup x a of
Nothing -> go ((x,1):a) xs
Just n -> go ((x,n+1):filter ((x/=).fst) a) xs
+ -- drop selected use flag from a list
dropFlag :: (Cabal.FlagName,Bool) -> [FlagDep] -> [FlagDep]
dropFlag f = map (first (filter (f /=)))
hasFlag :: (Cabal.FlagName,Bool) -> FlagDep -> Bool
Please sign in to comment.
Something went wrong with that request. Please try again.