do-request ( request -- response )

Vocabulary

http.server

Inputs

request

an object

Outputs

response

an object

Definition

USING: combinators continuations http.server.responses kernel
logging ;

IN: http.server

: do-request ( request -- response )
    [
        {
            [ prepare-request ]
            [ init-request ]
            [ log-request ]
            [
                dup valid-request?
                [ dispatch-request ] [ drop <400> ] if
            ]
        } cleave
    ] curry [ [ \ do-request log-error ] [ <500> ] bi ] recover
    ;