Ocaml错误lwt

Question

以下是

let new_socket () = Lwt_unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in  
let socket_address = Network.make_address "127.0.0.1" 7777 in  
let listening_socket = new_socket () in  
Lwt_unix.setsockopt listening_socket Unix.SO_REUSEADDR true;  
Lwt_unix.bind listening_socket socket_address; 

导致此错误的结果：

错误: correctness:2:remote_client:0:set

Unix.Unix_error(Unix.EADDRINUSE, "bind", "")
Raised at file "src/core/lwt.ml", line 782, characters 22-23
Called from file "src/unix/lwt_main.ml", line 34, characters 8-18
Called from file "src/oUnit.ml", line 597, characters 6-10`

最后一行没有授权绑定，想法为什么，怎么通过这个？

Answer 1

错误被清楚地说明:您试图绑定的地址已经在使用中，套接字已经绑定在端口7777上。

要理解由函数引发的Unix_error的代码，请查看相应的C unix函数的手册，在这种情况下是bind(2)。