annotate demo/crud1.ur @ 425:7009b0ac1501

Properly freeing libpq results on errors
author Adam Chlipala <adamc@hcoop.net>
date Fri, 24 Oct 2008 17:30:07 -0400
parents 0767d7ad0c3a
children 6c4643880df5
rev   line source
adamc@421 1 table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@421 2
adamc@421 3 open Crud.Make(struct
adamc@421 4 val tab = t1
adamc@421 5
adamc@421 6 val title = "Crud1"
adamc@421 7
adamc@421 8 val cols = {A = Crud.int "A",
adamc@421 9 B = Crud.string "B",
adamc@421 10 C = Crud.float "C",
adamc@421 11 D = Crud.bool "D"}
adamc@421 12 end)