diff 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
line wrap: on
line diff
--- a/lib/ur/top.urs	Sun Apr 05 11:24:55 2009 -0400
+++ b/lib/ur/top.urs	Sun Apr 05 11:48:55 2009 -0400
@@ -134,14 +134,3 @@
                   -> sql_exp tables agg exps (option t)
                   -> option t
                   -> sql_exp tables agg exps bool
-
-
-functor Broadcast(M : sig type t end) : sig
-    type topic
-
-    val inj : sql_injectable topic
-
-    val create : transaction topic
-    val subscribe : topic -> transaction (channel M.t)
-    val send : topic -> M.t -> transaction unit
-end