Ocsigen_response: Add Body.of_string

Author: Julow

src/server/ocsigen_response.ml

@@ -1,8 +1,13 @@
 module Body = struct
   type t = ((string -> unit Lwt.t) -> unit Lwt.t) * Cohttp.Transfer.encoding
 
-  let empty : t = (fun _write -> Lwt.return_unit), Fixed 0L
-  let make encoding writer = writer, encoding
+  let make encoding writer : t = writer, encoding
+  let empty = make (Fixed 0L) (fun _write -> Lwt.return_unit)
+
+  let of_string s =
+    make
+      (Cohttp.Transfer.Fixed (Int64.of_int (String.length s)))
+      (fun write -> write s)
 
   let of_cohttp body =
     ( (fun write -> Cohttp_lwt.Body.write_body write body)

src/server/ocsigen_response.mli

@@ -4,6 +4,7 @@ module Body : sig
   type t
 
   val empty : t
+  val of_string : string -> t
 
   val make :
      Cohttp.Transfer.encoding
@@ -47,9 +48,11 @@ val of_cohttp :
 val to_response_expert :
    t
   -> Cohttp.Response.t * ('ic -> Lwt_io.output_channel -> unit Lwt.t)
-(** Response for [Cohttp_lwt_unix.Server.make_expert]. *)
+(** Response for [Cohttp_lwt_unix.Server.make_expert]. Set cookie headers. *)
 
 val response : t -> Cohttp.Response.t
+(** Raw response without cookie headers set. *)
+
 val body : t -> Body.t
 val status : t -> Cohttp.Code.status
 val set_status : t -> Cohttp.Code.status -> t