fix regression in detecting ambiguous names
Fix https://github.com/elm/compiler/issues/1945
commit82a8be3e9a35d942876f16035c920b2896f33989
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateTue 2 Jul 2019, 18:39 (7 years ago)
parent33e43e8
compiler/src/Canonicalize/Environment/Foreign.hs+1−1
@@ -214,7 +214,7 @@ addExposedValue home vars types binops (State vs ts cs bs qvs qts qcs) (A.At reg
214214 Src.Lower name ->
215215 case Map.lookup name vars of
216216 Just info ->
217− Result.ok (State (Map.insert name info vs) ts cs bs qvs qts qcs)
217+ Result.ok (State (Map.insertWith Map.union name info vs) ts cs bs qvs qts qcs)
218218
219219 Nothing ->
220220 Result.throw (Error.ImportExposingNotFound region home name (Map.keys vars))