diff options
Diffstat (limited to 'demo/ref.ur')
-rw-r--r-- | demo/ref.ur | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/demo/ref.ur b/demo/ref.ur index 983cc814..b21d40a2 100644 --- a/demo/ref.ur +++ b/demo/ref.ur @@ -6,7 +6,7 @@ structure SR = RefFun.Make(struct type data = string end) -fun main () = +fun mutate () = ir <- IR.new 3; ir' <- IR.new 7; sr <- SR.new "hi"; @@ -24,3 +24,7 @@ fun main () = return <xml><body> {[iv]}, {[iv']}, {[sv]} </body></xml> + +fun main () = return <xml><body> + <form><submit action={mutate} value="Do some pointless stuff"/></form> +</body></xml> |