36dbf23 · elk · git.iko.soy

src/AST/Module/Name.hs+5

compare with master

unifiedsplit

@@ -16,6 +16,11 @@ data Canonical = Canonical

16 deriving (Eq, Ord, Show)

17

18

19+inVirtualDom :: Raw -> Canonical

20+inVirtualDom raw =

21+ Canonical Package.virtualDom raw

22+

23+

19inCore :: Raw -> Canonical

24inCore :: Raw -> Canonical

20inCore raw =

25inCore raw =

21 Canonical Package.core raw

26 Canonical Package.core raw

src/Generate/JavaScript/Expression.hs+1−1

@@ -221,7 +221,7 @@ generateProgram kind body =

221 case kind of

222 Expr.VDom ->

223 do html <- generateJsExpr body

224− jsExpr (Var.coreNative "Platform" "htmlToProgram" <| html)

224+ jsExpr (Var.staticProgram <| html)

225

226 Expr.NoFlags ->

227 do almostProgram <- generateJsExpr body

src/Generate/JavaScript/Variable.hs+6

@@ -5,6 +5,7 @@ module Generate.JavaScript.Variable

5 , qualified

6 , native

7 , coreNative

8+ , staticProgram

8 , define

9 , define

9 , safe

10 , safe

10 )

11 )

@@ -112,6 +113,11 @@ coreNative moduleName name =

112 native (ModuleName.inCore ["Native",moduleName]) name

113 native (ModuleName.inCore ["Native",moduleName]) name

113

114

115

116+staticProgram :: JS.Expression ()

117+staticProgram =

118+ native (ModuleName.inVirtualDom ["Native","VirtualDom"]) "staticProgram"

119+

120+

115getOpsDictName :: Var.Home -> String

121getOpsDictName :: Var.Home -> String

116getOpsDictName home =

122getOpsDictName home =

117 let

123 let