Permalink
Browse files

fix compilation with the latest opa version

  • Loading branch information...
1 parent 87a0c67 commit 10fa48bcb3d4676444d1d1e75df0410aa1d784b9 Hugo Heuzard committed Jul 8, 2011
Showing with 5 additions and 5 deletions.
  1. +4 −4 src/opacairo/buffer.opa
  2. +1 −1 src/opacairo/client.opa
View
@@ -46,8 +46,8 @@ NetworkBuffer = {{
@publish
empty(timer : int): NetworkBuffer.network('a) =
Set = Set_make(channel_order)
- s = Session.make_own((Set.empty,[]),
- ((chans,lst), msg, own ->
+ rec val own = Session.make((Set.empty,[]),
+ ((chans,lst), msg ->
match msg with
| {~add} ->
do Session.on_remove(add, (-> remove(add, own)))
@@ -58,8 +58,8 @@ NetworkBuffer = {{
| {dump} ->
if lst == [] then {unchanged} else do sleep(0, -> Set.iter(chan -> send(chan, lst), chans)) {set=(chans,[])}
))
- do Scheduler.timer(timer, ( -> Session.send(s,{dump})))
- s
+ do Scheduler.timer(timer, ( -> Session.send(own,{dump})))
+ own
broadcast(message: list('a), network: NetworkBuffer.network('a)): void = send(network, {broadcast = message})
remove(channel: SessionBuffer.channel('a), network: NetworkBuffer.network('a)): void = send(network, {remove = channel})
View
@@ -153,7 +153,7 @@ main() =
config = CChat.default_config(id)
initial_content = default_chat.requester({ range = (0, config.history_limit) })
initial_display = {CChat.default_display(id, Random.string(8)) with reverse=false}
- CChat.create(config, default_chat, id, initial_display, initial_content, ignore)
+ CChat.create(config, default_chat, id, initial_display, initial_content, (_,_ -> void ) )
//main content
<>

0 comments on commit 10fa48b

Please sign in to comment.