PGOcaml + Lwt

module Lwt_thread = struct
  type 'a t = 'a Lwt.t
  let return = Lwt.return
  let (>>=) = Lwt.(>>=)
  let fail = Lwt.fail
  let catch = Lwt.catch
  type in_channel = Lwt_io.input_channel
  type out_channel = Lwt_io.output_channel
  let open_connection sockaddr = Lwt_io.open_connection sockaddr
  let output_char = Lwt_io.write_char
  let output_binary_int = Lwt_io.BE.write_int
  let output_string = Lwt_io.write
  let flush = Lwt_io.flush
  let input_char = Lwt_io.read_char
  let input_binary_int = Lwt_io.BE.read_int
  let really_input = Lwt_io.read_into_exactly
  let close_in = Lwt_io.close
end

module PG = PGOCaml_generic.Make (Lwt_thread)