A Custom Response for User-Assigned Headers

app.ml

open OWebl
open Rule
open Server

open Mycustomresponse

let handler =
    Handler.create
        (StaticRouteRule.create "/" [Verb.GET])
        (MyCustomResponse.create "Hello World!" []) (*headers go here*)

let server = SimpleServer.serve [handler]

mycustomresponse.ml

module MyCustomResponse = struct
    include Response

    let my_custom_http_response (u_response: string) (u_headers: string list) : Response.r =
        http_response u_response "200 OK" "text/html" "utf-8" u_headers

    class my_custom_response (u_response: string) (u_headers: string list) =
        object
            method get_response (request: Request.t) : r =
                my_custom_http_response u_response u_headers
        end

    let create (u_response: string) (u_headers: string list) =
        new simple_response u_response u_headers
end