From d7c27c627c1f9c035d444345c45907e3787b042b Mon Sep 17 00:00:00 2001 From: David RENE Date: Fri, 25 May 2007 10:02:28 +0000 Subject: [PATCH] quit the message queue at the end of operations in ftp download --- calexium_lib/net_services_protocols/ftp_client.anubis | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/calexium_lib/net_services_protocols/ftp_client.anubis b/calexium_lib/net_services_protocols/ftp_client.anubis index f328112..6a815f3 100644 --- a/calexium_lib/net_services_protocols/ftp_client.anubis +++ b/calexium_lib/net_services_protocols/ftp_client.anubis @@ -139,11 +139,13 @@ public define Maybe(One) { error(_) then println("can't connect to ftp server"); failure, ok(conn) then - with queue = create_MessageQueue, + with queue = create_MessageQueue("ftp_get_file"), message_transceiver(conn, queue); if request_for_service(queue) then - get_file(queue, remote_file, local_file) + with result = get_file(queue, remote_file, local_file), + queue.quit(unique);result else + queue.quit(unique); println("Service not found");failure } else -- libgit2 0.21.4