dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 14:34:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Generate ports.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-15 12:38:52 -07:00
parent 81af7e9cf6
commit 242906d00c
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
codegen/GenerateMain.elm
View File

@ -9,9 +9,12 @@ import Elm.Extra exposing (expose, topLevelValue)
import Elm.Op
import Elm.Pretty
import Gen.Basics
import Gen.Bytes
import Gen.CodeGen.Generate exposing (Error)
import Gen.Html
import Gen.Html.Attributes
import Gen.Json.Decode
import Gen.Json.Encode
import Gen.List
import Gen.Pages.Internal.Platform
import Gen.Pages.ProgramConfig
@ -181,6 +184,20 @@ otherFile routes =
|> Elm.declaration "main"
|> expose
, config.declaration
, Elm.portOutgoing "sendPageData"
(Type.record
[ ( "oldThing", Gen.Json.Encode.annotation_.value )
, ( "binaryPageData", Gen.Bytes.annotation_.bytes )
]
)
, Elm.portIncoming "hotReloadData"
[ Gen.Bytes.annotation_.bytes ]
, Elm.portIncoming "toJsPort"
[ Gen.Json.Encode.annotation_.value ]
, Elm.portIncoming "fromJsPort"
[ Gen.Json.Decode.annotation_.value ]
, Elm.portIncoming "gotBatchSub"
[ Gen.Json.Decode.annotation_.value ]
]