diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
| commit | 30959446b17bea49d07d2ded62f3fc5b978be330 (patch) | |
| tree | 57bb51d132b4f81840f3ec44eba22addcf822f52 /tests/goback.ur | |
| parent | eb1f7abebc8b0d88be660550258d5fe1e8610621 (diff) | |
Gentle handling of back-button returns to pages with stale message-passing credentials
Diffstat (limited to 'tests/goback.ur')
| -rw-r--r-- | tests/goback.ur | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/goback.ur b/tests/goback.ur new file mode 100644 index 00000000..ef61a817 --- /dev/null +++ b/tests/goback.ur @@ -0,0 +1,20 @@ +table channels : { Channel : channel {} } + +fun get () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi. + </body></xml> + +fun post () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi! + </body></xml> + +fun main () = return <xml><body> + <li><a link={get ()}>Get</a></li> + <li><form><submit action={post}/></form></li> +</body></xml> |