build-report ( -- response )

Vocabulary

webapps.mason.report

Inputs

None

Outputs

response

an object

Definition

USING: accessors http.server.responses kernel sequences
webapps.mason.backend webapps.mason.utils ;

IN: webapps.mason.report

: build-report ( -- response )
    [
        current-builder [
            last-report>> "<div style=\"padding: 10px;\">"
            "</div>" surround <html-content>
        ] [ <404> ] if*
    ] with-mason-db ;