def server.reply.text

emerging-ezhttp@0.21.0.0 · src/server.bend:534

import Base
import emerging-ezhttp@0.21.0.0/src/http.bend as Http

534# HEAD responses are written with an empty body (RFC 9110 §9.3.2)
535def server.reply.text(~handle: Http.Request -> Http.Reply, req: Http.Request)
536  -> Http.Reply:
537  match req:
538    case Http.Bad{why}:
539      server.dispatch(handle, Http.Bad{why})
540    case Http.Request{+method, target, headers, body}:
541      server.reply.built(handle, method,
542        Http.Request{method, target, headers, body})