Permalink
Fetching contributors…
Cannot retrieve contributors at this time
6 lines (4 sloc) 103 Bytes
open Lwt
(* XXX very inefficient *)
let string_of_stream s =
Lwt_stream.to_list s >|= Cstruct.copyv