Highlight mappend invariant for DepError
Related: https://github.com/commercialhaskell/stack/issues/2078
This commit is contained in:
parent
6f108a10a4
commit
63feb972ae
1 changed files with 1 additions and 1 deletions
|
@ -625,7 +625,7 @@ data DepError = DepError
|
||||||
instance Monoid DepError where
|
instance Monoid DepError where
|
||||||
mempty = DepError Nothing Map.empty
|
mempty = DepError Nothing Map.empty
|
||||||
mappend (DepError a x) (DepError b y) = DepError
|
mappend (DepError a x) (DepError b y) = DepError
|
||||||
(maybe a Just b)
|
(assert (a == b) a)
|
||||||
(Map.unionWith C.intersectVersionRanges x y)
|
(Map.unionWith C.intersectVersionRanges x y)
|
||||||
|
|
||||||
-- | Given a bundle of packages (a list of @GenericPackageDescriptions@'s) to
|
-- | Given a bundle of packages (a list of @GenericPackageDescriptions@'s) to
|
||||||
|
|
Loading…
Reference in a new issue