def http.answer_from

ezmcp@0.1.0.0 · src/io.bend:155

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
import ezmcp@0.1.0.0/src/web.bend as Web

155# the endpoint's answer to one request ezhttp read, its server read from the
156# context
157def http.answer_from(
158  ~C: Data,
159  ~srv: C -> Server.Server,
160  ~run: C -> String -> Value.Json -> IO(Rpc.Out),
161  ~path: String,
162  ~origins: List<&2, String>,
163  +ctx: C,
164  req: EzServer.Req
165) -> IO(EzServer.Answer):
166  IO.bind(Http.Reply, EzServer.Answer,
167    http.web(C, run, ctx, Web.decide(srv(ctx), path, origins,
168      EzServer.server.plain(req))),
169    EzServer.server.text)