quit the message queue at the end of operations in ftp download

David RENE
1 parent 9026a8db
Showing 1 changed file with 4 additions and 2 deletions Show diff stats
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