annotate demo/crud1.ur @ 632:6c4643880df5

Demos compile again, with manual folders
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 15:12:13 -0500
parents 0767d7ad0c3a
children 6302b10dbe0e
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@632 12
adamc@632 13 val fl = Folder.cons [#A] [_] !
adamc@632 14 (Folder.cons [#B] [_] !
adamc@632 15 (Folder.cons [#C] [_] !
adamc@632 16 (Folder.cons [#D] [_] !
adamc@632 17 Folder.nil)))
adamc@421 18 end)