summaryrefslogtreecommitdiff
path: root/demo/noisy.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-05 10:23:16 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-05 10:23:16 -0400
commit5aff88e5b1dba05e222c601ed628b325ad6fd7f8 (patch)
treebede52199ad6681e3598dd198333b0c9dfef60ff /demo/noisy.ur
parentc53eeb25b20757091dfb8f9a085207e867c31baf (diff)
Make Effectize more precise
Diffstat (limited to 'demo/noisy.ur')
-rw-r--r--demo/noisy.ur6
1 files changed, 1 insertions, 5 deletions
diff --git a/demo/noisy.ur b/demo/noisy.ur
index 7f26eaf2..708cfa2c 100644
--- a/demo/noisy.ur
+++ b/demo/noisy.ur
@@ -25,7 +25,7 @@ fun check ls =
| Some a => a);
check ls'
-fun action () =
+fun main () =
idAdd <- source "";
aAdd <- source "";
@@ -41,7 +41,3 @@ fun action () =
<button value="Delete" onclick={id <- get idDel; del (readError id)}/>
<ctextbox source={idDel}/>
</body></xml>
-
-fun main () = return <xml><body>
- <form><submit value="Begin demo" action={action}/></form>
-</body></xml>