diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 15:29:39 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 15:29:39 -0400 |
commit | 55d10dd587a94d356096c2dfc39306c14b55c7bf (patch) | |
tree | fa0fcff27c8418c9e6beccbce3c846678e71f07e /demo/ref.ur | |
parent | 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 (diff) |
Effectness analysis
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> |