mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-24 21:41:46 +02:00
Fixed OCaml Address in use
This commit is contained in:
parent
eccf1ca93b
commit
a0736ce4e1
@ -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 (
|
||||||
|
Loading…
Reference in New Issue
Block a user