Commits

camlspotter committed 8d61023
  • Participants
  • Parent commits 9f71dd5

Comments (0)

Files changed (1)

-val ok200 : (int * string) -> [`Ok of string | `Error of [> `Http of (int * string) ]]
+val ok200 : int * 'a -> [> `Ok of 'a | `Error of [> `Http of int * 'a ]]
+(** HTTP result to a result monad *)
 
-val get_string : (Curl.handle -> unit) -> [`Ok of string | `Error of [> `Http of (int * string) ]]
-  (** [get_string init] initializes curl handle by [init] 
-      then add a write function for the simple string retrieval and perform it.
-      It returns the obtained string.
-  *)
+val get_string : (Curl.handle -> unit) -> [> `Error of [> `Http of int * string ] | `Ok of string ]
+(** Get string *)
 
+val download : string -> (Curl.handle -> unit) -> [> `Error of [> `Http of int * unit ] | `Ok of unit ]
+(** Download file *)