annotate demo/batchG.ur @ 1451:b6ce8ef0ea88

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 a44daa674810
children
rev   line source
adamc@650 1 table t : {Id : int, A : string, B : float}
adamc@708 2 PRIMARY KEY Id
adamc@650 3
adamc@782 4 open BatchFun.Make(struct
adamc@782 5 val tab = t
adamc@782 6 val title = "BatchG"
adamc@782 7 val cols = {A = BatchFun.string "A",
adamc@782 8 B = BatchFun.float "B"}
adamc@782 9 end)