annotate tests/crud1.ur @ 1327:1cc67fdac4d3

New argument to transactional free functions, to specify whether we are about to retry
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Dec 2010 11:15:20 -0500
parents 24a31b35e08f
children
rev   line source
adamc@325 1 table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@325 2
adamc@325 3 open Crud.Make(struct
adamc@350 4 val tab = t1
adamc@350 5
adamc@350 6 val title = "Crud1"
adamc@350 7
adamc@362 8 val cols = {A = Crud.int "A",
adamc@362 9 B = Crud.string "B",
adamc@362 10 C = Crud.float "C",
adamc@362 11 D = Crud.bool "D"}
adamc@350 12 end)