mirror of
https://github.com/c-cube/ezcurl.git
synced 2025-12-05 19:00:34 -05:00
19 lines
308 B
OCaml
19 lines
308 B
OCaml
(** {1 Synchronous API} *)
|
|
|
|
include Ezcurl_core
|
|
|
|
include Ezcurl_core.Make (struct
|
|
type 'a t = 'a
|
|
|
|
let return x = x
|
|
let ( >>= ) x f = f x
|
|
let ( >|= ) x f = f x
|
|
let fail e = raise e
|
|
|
|
let perform c =
|
|
try
|
|
Curl.perform c;
|
|
Curl.CURLE_OK
|
|
with Curl.CurlException (c, _, _) -> c
|
|
end)
|
|
|