annotate demo/cookie.ur @ 834:74e9e7642f08

Do 'open constraints' automatically; fix sourceless <cselect> monoize bug; Monad library module
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 11:50:53 -0400
parents ddd363e856ff
children 93315ac00394
rev   line source
adamc@464 1 cookie c : {A : string, B : float, C : int}
adamc@464 2
adamc@464 3 fun set r =
adamc@464 4 setCookie c {A = r.A, B = readError r.B, C = readError r.C};
adamc@464 5 return <xml>Cookie set.</xml>
adamc@464 6
adamc@464 7 fun main () =
adamc@464 8 ro <- getCookie c;
adamc@465 9 return <xml><body>
adamc@465 10 {case ro of
adamc@465 11 None => <xml>No cookie set.</xml>
adamc@465 12 | Some v => <xml>Cookie: A = {[v.A]}, B = {[v.B]}, C = {[v.C]}</xml>}
adamc@465 13 <br/><br/>
adamc@464 14
adamc@465 15 <form>
adamc@465 16 A: <textbox{#A}/><br/>
adamc@465 17 B: <textbox{#B}/><br/>
adamc@465 18 C: <textbox{#C}/><br/>
adamc@465 19 <submit action={set}/>
adamc@465 20 </form>
adamc@465 21 </body></xml>