write-response-header ( response -- response )

Vocabulary

http.server

Inputs

response

an object

Outputs

response

an object

Definition

USING: accessors arrays assocs http kernel sequences vectors ;

IN: http.server

: write-response-header ( response -- response )
    dup header>> >alist >vector over unparse-content-type
    "content-type" pick set-at over cookies>> [
        ensure-domain unparse-set-cookie "set-cookie" swap
        2array suffix!
    ] each write-header ;