annotate tests/rpc.ur @ 1176:51e596feec37

Tone down Reduce and compensate with a new push-lambda-inside-case rule in MonoOpt; expand more Basis synonyms in Monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Mar 2010 16:00:48 -0500
parents 56aaa1941dad
children
rev   line source
adamc@607 1 sequence s
adamc@607 2
adamc@607 3 fun main () : transaction page =
adamc@607 4 let
adamc@607 5 fun getNext () = nextval s
adamc@607 6 in
adamc@607 7 s <- source 0;
adamc@607 8 return <xml><body>
adamc@607 9 <button value="Get It On!"
adamc@607 10 onclick={n <- getNext ();
adamc@609 11 set s n}/><br/>
adamc@609 12 <br/>
adamc@609 13 Current: <dyn signal={n <- signal s; return <xml>{[n]}</xml>}/>
adamc@607 14 </body></xml>
adamc@607 15 end