Source file `Ezcurl.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(** {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)