summaryrefslogtreecommitdiff
path: root/tests/jsbspace.ur
blob: bf4b824f9b2a0c345bb8da807a06400392974ced (plain)
1
2
3
4
5
6
7
8
9
10
11
12
fun main () : transaction page =
let
  fun onclick (): transaction unit =
    (* this function runs on the client *)
    alert "Some \btext"
in
return <xml>
  <body>
    <button onclick={fn _ => onclick()}>Click me!</button>
  </body>
</xml>
end