def serve.write.open

bend-kit-http@0.38.5.0 · http.bend:6928

import Base
import bend-kit-http@0.38.5.0/completion.bend as Completion
import bend-kit-time@0.3.0.0/time.bend as Time
import bend-kit-bytes@0.3.3.0/bytes.bend as Bytes

6928def serve.write.open(~S: Type, ~write: S -> Writer -> Completion.Receipt -> IO(Writer & Completion.Receipt), ~dispose: S -> IO(Unit),
6929  observer: Completion.Receipt, receipt: Completion.Receipt, +status: U32, settings: Limits,
6930  keep: Bool, rest: Bytes.Bytes, state: S, mode: WriterMode, suppress: Bool, until: Time.Duration,
6931  m: Socket & Result<&1, &1, U32 & String, Unit>) -> IO(Maybe<&1, Socket & Turn>):
6932  (s, r) = m
6933  match r:
6934    case Fail{(code, message)}:
6935      +failure = {Completion.WriteFailed{code, message} : Completion.Outcome}
6936      do IO<Maybe<&1, Socket & Turn>>:
6937        Socket.close(s)
6938        dispose(state)
6939        Completion.report(observer, status, failure)
6940        Completion.report(receipt, status, failure)
6941        return None{}
6942    case Done{u}:
6943      serve.write.body(~S, ~write, ~dispose, observer, receipt, status, settings, keep, rest, state, s, mode, suppress, until)