@@ -214,7 +214,7 @@ addExposedValue home vars types binops (State vs ts cs bs qvs qts qcs) (A.At reg
214 Src.Lower name ->
214 Src.Lower name ->
215 case Map.lookup name vars of
215 case Map.lookup name vars of
216 Just info ->
216 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)
219 Nothing ->
219 Nothing ->
220 Result.throw (Error.ImportExposingNotFound region home name (Map.keys vars))
220 Result.throw (Error.ImportExposingNotFound region home name (Map.keys vars))