@@ -11,7 +11,7 @@ import Language.ECMAScript3.Syntax
1111
1212import Generate.JavaScript.Helpers as Help
1313import qualified Generate.Cases as Case
14−import qualified Generate.JavaScript.Ports as Port
14+import qualified Generate.JavaScript.Foreign as Foreign
1515import qualified Generate.JavaScript.Variable as Var
1616
1717import AST.Annotation
@@ -206,12 +206,12 @@ expression (A region expr) =
206206
207207 PortIn name tipe ->
208208 return $ obj ["_P","portIn"] `call`
209− [ string name, Port.incoming tipe ]
209+ [ string name, Foreign.incoming tipe ]
210210
211211 PortOut name tipe value ->
212212 do value' <- expression value
213213 return $ obj ["_P","portOut"] `call`
214− [ string name, Port.outgoing tipe, value' ]
214+ [ string name, Foreign.outgoing tipe, value' ]
215215
216216
217217definition :: Canonical.Def -> State Int [Statement ()]