Mercurial > urweb

annotate demo/crud1.ur @ 2190:22117edf8fd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
After a tricky debugging session, limit visibility of type-class instances from anonymous modules
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Nov 2015 16:33:14 -0500
parents 1a317a707d71
children
rev   line source
adamc@421 1 table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@708 2 PRIMARY KEY Id
adamc@421 3
adamc@421 4 open Crud.Make(struct
adamc@421 5 val tab = t1
adamc@421 6
adamc@421 7 val title = "Crud1"
adamc@421 8
adamc@421 9 val cols = {A = Crud.int "A",
adamc@421 10 B = Crud.string "B",
adamc@421 11 C = Crud.float "C",
adamc@421 12 D = Crud.bool "D"}
adamc@421 13 end)