def client.tell

ezmcp@0.1.0.0 · src/io.bend:434

import Base
import emerging-ezjson@1.2.0.0/main.bend as Json
import emerging-ezjson@1.2.0.0/src/value.bend as Value
import emerging-ezhttp@0.21.0.0/main.bend as Ez
import emerging-ezhttp@0.21.0.0/src/client.bend as EzClient
import ezmcp@0.1.0.0/src/client.bend as Client

434# POST one notification; whether the server accepted it
435def client.tell(
436  url: String,
437  version: String,
438  timeout_ms: U32,
439  msg: Value.Json
440) -> IO(Bool):
441  IO.bind(EzClient.Response, Bool,
442    Ez.http.post_opts(url, Client.headers(version), Ez.text_body(Json.print(msg)),
443      timeout_ms),
444    r => IO.pure(Bool, client.sent(r)))