Mercurial > urweb

annotate tests/update.ur @ 1451:b6ce8ef0ea88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Before allowing an indirect return, check (dynamically, for now) that we aren't in an RPC handler
author Adam Chlipala <adam@chlipala.net>
date Sun, 17 Apr 2011 13:43:00 -0400
parents 0aee86b8a6d6
children
rev   line source
adamc@300 1 table t1 : {A : int, B : string, C : float, D : bool}
adamc@300 2
adamc@300 3 fun main () : transaction page =
adamc@310 4 () <- dml (UPDATE t1 SET B = 'Hi', C = 12.34 WHERE A = 5);
adamc@300 5 return <html><body>Updated.</body></html>