view 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
line wrap: on
line source
table t1 : {Id : int, A : int, B : string, C : float, D : bool}

open Crud.Make(struct
        val tab = t1

        val title = "Crud1"

        val cols = {
                A = {Show = txt _},
                B = {Show = txt _},
                C = {Show = txt _},
                D = {Show = txt _}
        }
end)