Mercurial > urweb

annotate tests/crud1.ur @ 1327:1cc67fdac4d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)