comparison lib/ur/top.urs @ 699:4e260887d8f2

Chat demo
author Adam Chlipala <adamc@hcoop.net>
date Sun, 05 Apr 2009 11:48:55 -0400
parents 5bbb542243e8
children 5c099b1308ae
comparison
equal deleted inserted replaced
698:9b29ce0babb8 699:4e260887d8f2
132 val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} 132 val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
133 -> t ::: Type -> sql_injectable (option t) 133 -> t ::: Type -> sql_injectable (option t)
134 -> sql_exp tables agg exps (option t) 134 -> sql_exp tables agg exps (option t)
135 -> option t 135 -> option t
136 -> sql_exp tables agg exps bool 136 -> sql_exp tables agg exps bool
137
138
139 functor Broadcast(M : sig type t end) : sig
140 type topic
141
142 val inj : sql_injectable topic
143
144 val create : transaction topic
145 val subscribe : topic -> transaction (channel M.t)
146 val send : topic -> M.t -> transaction unit
147 end