(* This example downloads a URL into a file *)

open Http_client

let download url =
  let pipeline = new pipeline in
  let get_call = new get url in
  get_call # set_response_body_storage (`File (fun () -> "file"));
  pipeline # add get_call;
  pipeline # run()
;;