From 3b3f14a1c2021f307e9290ec8fba64d6c791a93a 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

---
 demo/broadcast.urs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 demo/broadcast.urs

(limited to 'demo/broadcast.urs')

diff --git a/demo/broadcast.urs b/demo/broadcast.urs
new file mode 100644
index 00000000..9a4d0bba
--- /dev/null
+++ b/demo/broadcast.urs
@@ -0,0 +1,11 @@
+functor Make(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
+
+    val subscribers : topic -> transaction int
+end
-- 
cgit v1.2.3