Commit dc4901d4 authored by kristenk's avatar kristenk
Browse files

Allow a flag to be used multiple times in the solver DSL.

parent d33ad535
...@@ -16,6 +16,7 @@ module UnitTests.Distribution.Client.Dependency.Modular.DSL ( ...@@ -16,6 +16,7 @@ module UnitTests.Distribution.Client.Dependency.Modular.DSL (
-- base -- base
import Data.Either (partitionEithers) import Data.Either (partitionEithers)
import Data.Maybe (catMaybes) import Data.Maybe (catMaybes)
import Data.List (nub)
import Data.Monoid import Data.Monoid
import Data.Version import Data.Version
import qualified Data.Map as Map import qualified Data.Map as Map
...@@ -163,7 +164,7 @@ exAvSrcPkg ex = ...@@ -163,7 +164,7 @@ exAvSrcPkg ex =
C.setupDepends = mkSetupDeps (CD.setupDeps (exAvDeps ex)) C.setupDepends = mkSetupDeps (CD.setupDeps (exAvDeps ex))
} }
} }
, C.genPackageFlags = concatMap extractFlags , C.genPackageFlags = nub $ concatMap extractFlags
(CD.libraryDeps (exAvDeps ex)) (CD.libraryDeps (exAvDeps ex))
, C.condLibrary = Just $ mkCondTree (extsLib exts <> langLib mlang) libraryDeps , C.condLibrary = Just $ mkCondTree (extsLib exts <> langLib mlang) libraryDeps
, C.condExecutables = [] , C.condExecutables = []
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment