def server.fork.body

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

import Base

357# a connection's fork: serve it, give its slot back, and say it is done
358def server.fork.body(~C: Data, ~handle: C -> Req -> IO(Answer), +ctx: C,
359  sock: Socket, +slots: Chan(Unit), +limited: Bool, +done: Chan(Unit),
360  +tracked: Bool) -> IO(Unit):
361  IO.bind(Unit, Unit, server.conn(~C, handle, ctx, sock),
362    _u => IO.bind(Unit, Unit, server.slot.give(slots, limited),
363      _v => server.done(done, tracked)))