def http.serve_forever

ezmcp@0.1.0.0 · src/io.bend:231

import Base
import emerging-ezjson@1.2.0.0/src/value.bend as Value
import ezmcp@0.1.0.0/src/rpc.bend as Rpc
import ezmcp@0.1.0.0/src/server.bend as Server

231# serve until the process is stopped, as many connections at once as arrive
232@unsafe def http.serve_forever(
233  ~run: String -> Value.Json -> IO(Rpc.Out),
234  ~srv: Server.Server,
235  ~path: String,
236  ~origins: List<&2, String>,
237  host: String,
238  port: U32
239) -> IO(Unit):
240  http.serve_forever_with(~Unit, ~(_c => n => a => run(n, a)), srv, path,
241    origins, Unit{}, host, port, 0)