komar
11.06.2011 14:23 pavilion
Эпический баг. Просуществовал целый год. close вызывается только когда, когда вылезает исключение:
let close_connection self =
try Lwt_unix.shutdown self.sock Unix.SHUTDOWN_ALL with _ → ();
Lwt_unix.close self.sock
add comment
recommend
bookmark
subscribe