register port names before canonicalization
commitff9d643a34cc1e6c941801ba0ae074ae2c589c1b
authorEvan Czaplicki <info@elm-lang.org>
dateTue 10 Jun 2014, 15:19 (12 years ago)
parent6e59427
compiler/Transform/Canonicalize/Setup.hs+6−1
@@ -209,6 +209,11 @@ addDecl moduleName info@(nodes,env) decl =
209209 _ -> _values env
210210 }
211211
212− D.Port _ -> info
212+ D.Port port ->
213+ let portName = case port of
214+ D.Out name _ _ -> name
215+ D.In name _ -> name
216+ in
217+ (,) nodes $ env { _values = addLocal portName (_values env) }
213218
214219 D.Fixity _ _ _ -> info