def server.fork

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

import Base

365# serve an accepted connection on its own fork, a slot taken first
366def server.fork(~C: Data, ~handle: C -> Req -> IO(Answer), +ctx: C,
367  sock: Socket, +slots: Chan(Unit), +limited: Bool, +done: Chan(Unit),
368  +tracked: Bool) -> IO(Unit):
369  IO.bind(Unit, Unit, server.slot.take(slots, limited),
370    _u => IO.spawn(Unit,
371      server.fork.body(~C, handle, ctx, sock, slots, limited, done, tracked)))