blob: befd6045b93856fd11ad03ac4a0913db79229756 (
plain)
1
2
3
4
5
6
7
8
|
val callme = return ((), (), "A", (), ())
val main : transaction page = return <xml><body>
<button value="CLICK ME"
onclick={fn _ =>
(_, _, s, _, _) <- rpc callme;
alert s}/>
</body></xml>
|