trivial-response-body ( code message -- )


Vocabulary
http.server.responses

Inputs
codean object
messagean object


Outputs
None

Definition


: trivial-response-body ( code message -- )
2 nenum T{ xml
{ prolog
T{ prolog { version "1.0" } { encoding "UTF-8" } }
}
{ before
V{ T{ doctype-decl { name "html" } } "\n " }
}
{ body
T{ tag
{ name
T{ name
{ space "" }
{ main "html" }
{ url "" }
}
}
{ children
V{ "\n " ~tag~ "\n " }
}
}
}
{ after V{ "" } }
} interpolate-xml write-xml ;