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

Handle Channel_flow (by ignoring it)

This commit is contained in:
Tony Garnock-Jones 2012-05-10 15:22:24 -04:00
parent 5944d29e7c
commit 18f09b324b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
amqp_relay.ml
View File

@ -358,6 +358,9 @@ let handle_method conn channel m =
| Basic_qos (_, _, _) ->
ignore (Log.warn "Ignoring Basic_qos instruction from client" []);
send_method conn channel Basic_qos_ok
| Channel_flow (on) ->
ignore (Log.warn "Ignoring Channel_flow setting" [Sexp.Str (string_of_bool on)]);
send_method conn channel (Channel_flow_ok on)
| _ ->
let (cid, mid) = method_index m in
die not_implemented (Printf.sprintf "Unsupported method (or method arguments) %s"