@@ -209,6 +209,11 @@ addDecl moduleName info@(nodes,env) decl =
209 _ -> _values env
209 _ -> _values env
212− D.Port _ -> info
212+ D.Port port ->
213+ let portName = case port of
214+ D.Out name _ _ -> name
217+ (,) nodes $ env { _values = addLocal portName (_values env) }
214 D.Fixity _ _ _ -> info
219 D.Fixity _ _ _ -> info