comparison src/ur/openidUser.urs @ 20:2342d9baa0df

New OpenidUser.Make parameter: ready
author Adam Chlipala <adam@chlipala.net>
date Thu, 06 Jan 2011 16:46:09 -0500
parents dd8eb53da51b
children e5df3d3554d3
comparison
equal deleted inserted replaced
19:5e03668972ea 20:2342d9baa0df
25 val creationState : transaction creationState 25 val creationState : transaction creationState
26 (* Create some fresh client-side state. *) 26 (* Create some fresh client-side state. *)
27 27
28 val render : creationState -> xtable 28 val render : creationState -> xtable
29 (* Display widgets. *) 29 (* Display widgets. *)
30
31 val ready : creationState -> signal bool
32 (* Is the data ready to send? *)
30 33
31 val tabulate : creationState -> signal creationData 34 val tabulate : creationState -> signal creationData
32 (* Functionalize current state. *) 35 (* Functionalize current state. *)
33 36
34 val choose : sql_table ([Id = string] ++ cols) [Pkey = [Id]] 37 val choose : sql_table ([Id = string] ++ cols) [Pkey = [Id]]