LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-03-15 05:06:54 +01:00
Code Issues Releases Wiki Activity

Fixed OCaml Address in use

Browse Source
This commit is contained in:
Anthony Scemama 2017-03-06 17:32:42 +01:00
parent eccf1ca93b
commit a0736ce4e1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ocaml/TaskServer.ml
View File

@ -62,7 +62,11 @@ let bind_socket ~socket_type ~socket ~port =
| Unix.Unix_error _ -> (Time.pause @@ Time.Span.of_float 1. ; loop (i-1) ) | Unix.Unix_error _ -> (Time.pause @@ Time.Span.of_float 1. ; loop (i-1) )
| other_exception -> raise other_exception | other_exception -> raise other_exception
in loop 60; in loop 60;
ZMQ.Socket.bind socket @@ Printf.sprintf "ipc:///tmp/qp_run:%d" port let filename =
Printf.sprintf "/tmp/qp_run:%d" port
in
Sys.remove filename;
ZMQ.Socket.bind socket ("ipc://"^filename)
let hostname = lazy ( let hostname = lazy (