From f6559c7555465c479d45529748deb8c15dfa346c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 5 Apr 2009 11:48:55 -0400
Subject: Chat demo

---
 lib/ur/top.urs | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'lib/ur/top.urs')

diff --git a/lib/ur/top.urs b/lib/ur/top.urs
index 821aa42a..60b6dac2 100644
--- a/lib/ur/top.urs
+++ b/lib/ur/top.urs
@@ -134,14 +134,3 @@ val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
                   -> 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
-- 
cgit v1.2.3