Add Dream.set_status

src/dream.ml

@@ -119,6 +119,7 @@ let json = Helpers.json
 let redirect = Helpers.redirect
 let empty = Helpers.empty
 let status = Message.status
+let set_status = Message.set_status
 
 
 

src/dream.mli

@@ -519,6 +519,9 @@ val empty :
 val status : response -> status
 (** Response {!type-status}. For example, [`OK]. *)
 
+val set_status : response -> status -> unit
+(** Sets the response status. *)
+
 
 
 (** {1 Headers} *)

src/pure/message.ml

@@ -31,7 +31,7 @@ type client = {
    some middleware to decide which headers to add. *)
 
 type server = {
-  status : Status.status;
+  mutable status : Status.status;
   mutable websocket : (Stream.stream * Stream.stream) option;
 }
 
@@ -135,6 +135,9 @@ let response ?status ?code ?(headers = []) client_stream server_stream =
 let status response =
   response.specific.status
 
+let set_status response status =
+  response.specific.status <- status
+
 
 
 (* Headers *)

src/pure/message.mli

@@ -48,6 +48,7 @@ val response :
     response
 
 val status : response -> Status.status
+val set_status : response -> Status.status -> unit