make-http-error ( error -- xml )

Vocabulary

http.server

Inputs

error

an object

Outputs

xml

an object

Definition

USING: debugger html html.streams io kernel ;

IN: http.server

: make-http-error ( error -- xml )
    [ "Internal server error" f ] dip
    [ print-error nl :c ] with-html-writer simple-page ;