annotate tests/update.ur @ 1437:493e087f5479

Exit periodic loop if a ROLLBACK fails, to avoid infinite looping when the database server is brought down
author Adam Chlipala <adam@chlipala.net>
date Fri, 18 Mar 2011 09:12:55 -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>