failure-details ( error file what -- xml )

Vocabulary

mason.report

Inputs

error	an object
file	an object
what	an object

Outputs

xml

an object

Definition

USING: debugger io.streams.string xml.data xml.syntax.private ;

IN: mason.report

:: failure-details ( error file what -- xml )
    error
    [ error. ] with-string-writer :> error file 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 ;