def admission.reject

bend-kit-http@0.38.2.0 · http.bend:6210

import Base
import bend-kit-http@0.38.2.0/completion.bend as Completion
import bend-kit-time@0.3.0.0/time.bend as Time

6210# This rejection has parsed metadata, so normal HEAD body suppression still applies.
6211def admission.reject(observer: Completion.Receipt, s: Socket, head: Bool, ms: U32) -> IO(Unit):
6212  do IO<Unit>:
6213    now : Time.Duration <- Time.mono()
6214    sent : Socket & Result<&1, &1, U32 & String, Unit> <-
6215      bounded.send(s, reply.bytes(reply.fail.bytes(503), head, True{}), Time.Duration.add(now, Time.Duration.of_ms(ms)))
6216    reply.sent.observe(observer, 503, sent)