failed-report ( error file what -- status )

Vocabulary

mason.report

Inputs

error	an object
file	an object
what	an object

Outputs

status

an object

Definition

USING: debugger io.encodings.utf8 io.streams.string mason.common
xml.data xml.syntax.private ;

IN: mason.report

:: failed-report ( error file what -- status )
    [
        error
        [ error. ] with-string-writer :> error file utf8 400
        file-tail :> output H{
            { "output" output }
            { "what" what }
            { "error" error }
        } T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    "\n        Build output:\n        "
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    "\n        Launcher error:\n        "
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] with-report status-error ;