blob: 039eac55bded04e09a7fcbfbfb9b492693f7f6ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
fun printer () = Test.foo
fun effect () =
Test.print;
return <xml><body>
<button value="Remote" onclick={printer ()}/>
<button value="Local" onclick={Test.bar "Hoho"}/>
<button value="Either" onclick={Test.print}/>
</body></xml>
fun main () = return <xml><body>
{[Test.out (Test.frob (Test.create "Hello ") "world!")]}
<form><submit action={effect}/></form>
</body></xml>
|
