blob: ca05f504949bac3b020844ae1d6633b1bb9cf79d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun main () =
s <- source "";
return <xml><body>
<cselect source={s}>
<coption>Wilbur</coption>
<coption>Walbur</coption>
</cselect>
Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>.
I'll be your waiter for this evening.
</body></xml>
|
