def http.answer

ezmcp@0.1.0.0 · src/io.bend:100

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

100# the endpoint's answer to one request ezhttp read, as its plain serves
101# take one: the request as text in, a text reply out
102def http.answer(
103  ~C: Data,
104  ~run: C -> String -> Value.Json -> IO(Rpc.Out),
105  ~srv: Server.Server,
106  ~path: String,
107  ~origins: List<&2, String>,
108  +ctx: C,
109  req: EzServer.Req
110) -> IO(EzServer.Answer):
111  IO.bind(Http.Reply, EzServer.Answer,
112    http.handle_with(C, run, srv, path, origins, ctx, EzServer.server.plain(req)),
113    EzServer.server.text)