Generate proper code for (main : Html msg)
commit36dbf23f9ee63068922500c5853c59d9e7f6d93b
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateMon 10 Oct 2016, 18:03 (10 years ago)
parent215251f
src/AST/Module/Name.hs+5
@@ -16,6 +16,11 @@ data Canonical = Canonical
1616 deriving (Eq, Ord, Show)
1717
1818
19+inVirtualDom :: Raw -> Canonical
20+inVirtualDom raw =
21+ Canonical Package.virtualDom raw
22+
23+
1924inCore :: Raw -> Canonical
2025inCore raw =
2126 Canonical Package.core raw
src/Generate/JavaScript/Expression.hs+1−1
@@ -221,7 +221,7 @@ generateProgram kind body =
221221 case kind of
222222 Expr.VDom ->
223223 do html <- generateJsExpr body
224− jsExpr (Var.coreNative "Platform" "htmlToProgram" <| html)
224+ jsExpr (Var.staticProgram <| html)
225225
226226 Expr.NoFlags ->
227227 do almostProgram <- generateJsExpr body
src/Generate/JavaScript/Variable.hs+6
@@ -5,6 +5,7 @@ module Generate.JavaScript.Variable
55 , qualified
66 , native
77 , coreNative
8+ , staticProgram
89 , define
910 , safe
1011 )
@@ -112,6 +113,11 @@ coreNative moduleName name =
112113 native (ModuleName.inCore ["Native",moduleName]) name
113114
114115
116+staticProgram :: JS.Expression ()
117+staticProgram =
118+ native (ModuleName.inVirtualDom ["Native","VirtualDom"]) "staticProgram"
119+
120+
115121getOpsDictName :: Var.Home -> String
116122getOpsDictName home =
117123 let