b35ab45 · elk · git.iko.soy

elm-compiler.cabal+1−1

@@ -63,8 +63,8 @@ Library

63 Elm.Compiler.Type.Extract,

64 Elm.Compiler.Version,

65 Generate.JavaScript,

66+ Generate.JavaScript.Foreign,

66 Generate.JavaScript.Helpers,

67 Generate.JavaScript.Helpers,

67− Generate.JavaScript.Ports,

68 Generate.JavaScript.Variable,

69 Generate.Cases,

70 Transform.AddDefaultImports,

src/Generate/JavaScript.hs+3−3

@@ -11,7 +11,7 @@ import Language.ECMAScript3.Syntax

11

12import Generate.JavaScript.Helpers as Help

13import qualified Generate.Cases as Case

14−import qualified Generate.JavaScript.Ports as Port

14+import qualified Generate.JavaScript.Foreign as Foreign

15import qualified Generate.JavaScript.Variable as Var

16

17import AST.Annotation

@@ -206,12 +206,12 @@ expression (A region expr) =

206

207 PortIn name tipe ->

208 return $ obj ["_P","portIn"] `call`

209− [ string name, Port.incoming tipe ]

209+ [ string name, Foreign.incoming tipe ]

210

211 PortOut name tipe value ->

212 do value' <- expression value

213 return $ obj ["_P","portOut"] `call`

214− [ string name, Port.outgoing tipe, value' ]

214+ [ string name, Foreign.outgoing tipe, value' ]

215

216

217definition :: Canonical.Def -> State Int [Statement ()]

src/Generate/JavaScript/Ports.hs → src/Generate/JavaScript/Foreign.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Generate.JavaScript.Ports (incoming, outgoing) where

1+module Generate.JavaScript.Foreign (incoming, outgoing) where

2

3import qualified Data.List as List

4import Generate.JavaScript.Helpers