pusk/lib/net.ml

10 lines
374 B
OCaml
Raw Normal View History

open Cohttp_lwt_unix
let send_post_request url json =
let uri = Uri.of_string url in
let headers = Cohttp.Header.init_with "Content-Type" "application/json" in
let body = Cohttp_lwt.Body.of_string json in
Lwt.bind (Client.post ~headers ~body uri) (fun (_response, body) ->
(* Lwt.map (fun body_str -> response, body_str) *) Cohttp_lwt.Body.to_string body)
;;