annotate tests/crud1.ur @ 332:02d15d81ae9b

foldTRX2
author Adam Chlipala <adamc@hcoop.net>
date Sat, 13 Sep 2008 11:13:46 -0400
parents e457d8972ff1
children 34847732cefc
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@325 4 val tab = t1
adamc@325 5
adamc@325 6 val title = "Crud1"
adamc@325 7
adamc@325 8 val cols = {
adamc@325 9 A = {Show = txt _},
adamc@325 10 B = {Show = txt _},
adamc@325 11 C = {Show = txt _},
adamc@325 12 D = {Show = txt _}
adamc@325 13 }
adamc@325 14 end)