syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Subscription.count

This commit is contained in:
Tony Garnock-Jones 2012-05-05 10:30:31 -04:00
parent b43fe2974c
commit 2f80a54ffe
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
subscription.ml
View File

@ -29,6 +29,8 @@ type set_t = t StringMap.t ref
let new_set () = ref StringMap.empty
let count subs = StringMap.cardinal !subs
let create source subs filter sink name reply_sink reply_name =
let uuid = Uuid.create () in
let sub = {