Fill in relay unsubscription
This commit is contained in:
parent
b7385e4927
commit
5217e085ea
6
relay.ml
6
relay.ml
|
@ -32,8 +32,10 @@ let dispatch_message n ch m =
|
||||||
(Message.subscribe_ok (Str filter))
|
(Message.subscribe_ok (Str filter))
|
||||||
(Str "")
|
(Str "")
|
||||||
else Log.warn "Bind failed" [Str filter]
|
else Log.warn "Bind failed" [Str filter]
|
||||||
| Message.Unsubscribe token ->
|
| Message.Unsubscribe (Str token) ->
|
||||||
() (* %%% TODO *)
|
if Node.unbind token
|
||||||
|
then ()
|
||||||
|
else Log.warn "Unbind failed" [Str token]
|
||||||
| _ ->
|
| _ ->
|
||||||
send_error ch "Message not understood" (Message.sexp_of_message m)
|
send_error ch "Message not understood" (Message.sexp_of_message m)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue