Commit 98864555 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Accept duplicates when they're all the same.


Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent 468ca1db
......@@ -1215,7 +1215,8 @@ resolveModuleReexports installedPackages srcpkgid externalPkgDeps lib =
(Map.findWithDefault [] originalName visibleModules)
in
case (matches, moriginalPackageName) of
([(_, definingModuleName, definingPackageId)], _)
((_, definingModuleName, definingPackageId):rest, _)
| all (\(_, n, p) -> n == definingModuleName && p == definingPackageId) rest
-> Right Installed.ModuleReexport {
Installed.moduleReexportDefiningName = definingModuleName,
Installed.moduleReexportDefiningPackage = definingPackageId,
......
Markdown is supported
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