Ur/Web: tests/crud1.ur annotate

Before allowing an indirect return, check (dynamically, for now) that we aren't in an RPC handler

author	Adam Chlipala <adam@chlipala.net>
date	Sun, 17 Apr 2011 13:43:00 -0400
parents	24a31b35e08f
children

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@350	4 val tab = t1
adamc@350	5
adamc@350	6 val title = "Crud1"
adamc@350	7
adamc@362	8 val cols = {A = Crud.int "A",
adamc@362	9 B = Crud.string "B",
adamc@362	10 C = Crud.float "C",
adamc@362	11 D = Crud.bool "D"}
adamc@350	12 end)

Mercurial > urweb