annotate tests/goback.ur @ 2214:edd634b889d0

Add mono_inline.sml (which was left out of last commit).
author Ziv Scully <ziv@mit.edu>
date Tue, 14 Oct 2014 18:07:09 -0400
parents c3b5cf5c2f98
children
rev   line source
adam@1552 1 table channels : { Channel : channel {} }
adam@1552 2
adam@1552 3 fun get () =
adam@1552 4 ch <- channel;
adam@1552 5 dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
adam@1552 6 return <xml><body onload={recv ch}>
adam@1552 7 Hi.
adam@1552 8 </body></xml>
adam@1552 9
adam@1552 10 fun post () =
adam@1552 11 ch <- channel;
adam@1552 12 dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
adam@1552 13 return <xml><body onload={recv ch}>
adam@1552 14 Hi!
adam@1552 15 </body></xml>
adam@1552 16
adam@1552 17 fun main () = return <xml><body>
adam@1552 18 <li><a link={get ()}>Get</a></li>
adam@1552 19 <li><form><submit action={post}/></form></li>
adam@1552 20 </body></xml>