do-response ( response -- )

Vocabulary

http.server

Inputs

response

an object

Outputs

None

Definition

USING: continuations http io.encodings io.encodings.utf8 kernel
logging namespaces xml.writer ;

IN: http.server

: do-response ( response -- )
    [ [ request get ] ] dip [ write-full-response ] curry
    compose [
        [ \ do-response log-error ] [
            utf8 [
                development? get
                [ make-http-error ] [ drop "Response error" ] if
                write-xml
            ] with-encoded-output
        ] bi
    ] recover ;