try -> try_lwt

2012-05-10 11:09:07 -04:00 · 2012-05-10 11:09:07 -04:00 · aa87e25a95
parent 513f0f7334
commit aa87e25a95
1 changed files with 1 additions and 1 deletions
--- a/amqp_relay.ml
+++ b/amqp_relay.ml
@ -396,7 +396,7 @@ let handshake_and_tune conn =

 let amqp_mainloop conn n =
  lwt () = Node.bind_ignore (conn.name, n) in
-  (try
+  (try_lwt
     lwt () = handshake_and_tune conn in
     while_lwt not conn.connection_closed do
       lwt (channel, m) = next_method conn in