annotate tests/goback.ur @ 2252:e843a04499d4

Revert to revision 2222.
author Ziv Scully <ziv@mit.edu>
date Mon, 21 Sep 2015 10:16:55 -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>