From 87fed8350aaee216c0930ca822aaf10fdbe9e12d Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 9 Jul 2018 19:21:59 +0200
Subject: [PATCH] Fixed OCaml

---
 ocaml/Qmcchem_run.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ocaml/Qmcchem_run.ml b/ocaml/Qmcchem_run.ml
index c9883b1..3960ed4 100644
--- a/ocaml/Qmcchem_run.ml
+++ b/ocaml/Qmcchem_run.ml
@@ -59,22 +59,22 @@ let full_run ?(start_dataserver=true) ezfio_filename  =
     and address = 
       Ezfio.get_simulation_http_server ()
     in
+    Zmq.Socket.set_receive_timeout socket 100;
     let reply = 
        try
         (
-           Zmq.Socket.set_receive_timeout socket 100;
            Zmq.Socket.connect socket address;
            Zmq.Socket.send socket (Message.(to_string Test));
            Zmq.Socket.recv socket
          ) with
        | Unix.Unix_error (_,_,_) ->
            begin
-             Zmq.Socket.set_linger_period socket 1 ;
-             Zmq.Socket.close socket;
-             Zmq.Context.terminate zmq_context;
              "Failed"
            end
     in
+    Zmq.Socket.set_linger_period socket 1 ;
+    Zmq.Socket.close socket;
+    Zmq.Context.terminate zmq_context;
     reply = "OK"
   in