mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-10 13:56:19 +00:00
38 lines
801 B
Text
38 lines
801 B
Text
interface ExampleApp
|
|
exposes [exampleApp, State]
|
|
imports [
|
|
pf.Html.{ App, Html, html, head, body, div, text, h1 },
|
|
]
|
|
|
|
State : {
|
|
answer : U32,
|
|
}
|
|
|
|
exampleApp : App State State
|
|
exampleApp = {
|
|
init,
|
|
render,
|
|
wasmUrl: "assets/example-client.wasm",
|
|
}
|
|
|
|
init = \result ->
|
|
when result is
|
|
Ok state -> state
|
|
Err _ -> { answer: 0 }
|
|
|
|
render : State -> Html State
|
|
render = \state ->
|
|
num = Num.toStr state.answer
|
|
|
|
html [] [
|
|
head [] [],
|
|
body [] [
|
|
h1 [] [text "The app"],
|
|
div [] [text "The answer is \(num)"],
|
|
],
|
|
]
|
|
|
|
expect
|
|
Html.renderStatic (Html.translateStatic (render { answer: 42 }))
|
|
==
|
|
"<!DOCTYPE html><html><head></head><body><h1>The app</h1><div>The answer is 42</div></body></html>"
|