diff --git a/git-unix.opam b/git-unix.opam index e9a73c3b8..a3371b640 100644 --- a/git-unix.opam +++ b/git-unix.opam @@ -32,7 +32,6 @@ depends: [ "bos" "fpath" "uri" - "ocurl" {>= "0.9.1"} "digestif" {>= "0.8.1"} "logs" "lwt" diff --git a/src/git-curl/dune b/src/git-curl/dune deleted file mode 100644 index c11adb03f..000000000 --- a/src/git-curl/dune +++ /dev/null @@ -1,4 +0,0 @@ -(library - (name git_curl) - (public_name git-unix.curl) - (libraries lwt rresult result nss.git bigstringaf uri fmt curl.lwt)) diff --git a/src/git-curl/git_curl.ml b/src/git-curl/git_curl.ml deleted file mode 100644 index c8f069e3a..000000000 --- a/src/git-curl/git_curl.ml +++ /dev/null @@ -1,43 +0,0 @@ -type error = | - -let pp_error : error Fmt.t = fun _ppf -> function _ -> . - -let writer buf str = - Buffer.add_string buf str; - String.length str - -let get ~resolvers:_ ?headers:_ uri = - let connection = Curl.init () in - let buf = Buffer.create 0x1000 in - Curl.set_url connection (Uri.to_string uri); - Curl.set_writefunction connection (writer buf); - let open Lwt.Infix in - Curl_lwt.perform connection >>= fun _ -> - Curl.cleanup connection; - let v = Buffer.contents buf in - Lwt.return_ok ((), v) - -let post ~resolvers:_ ?headers:_ uri contents = - let connection = Curl.init () in - let buf = Buffer.create 0x1000 in - let pos = ref 0 in - Curl.set_url connection (Uri.to_string uri); - Curl.set_post connection true; - Curl.set_httpheader connection - [ - "content-type: applicaton/x-git-upload-pack-request"; - Fmt.strf "content-length: %d" (String.length contents); - ]; - Curl.set_readfunction connection (fun len -> - let len = min len (String.length contents - !pos) in - let res = String.sub contents !pos len in - pos := !pos + len; - res); - Curl.set_writefunction connection (fun str -> - Buffer.add_string buf str; - String.length str); - let open Lwt.Infix in - Curl_lwt.perform connection >>= fun _ -> - Curl.cleanup connection; - let v = Buffer.contents buf in - Lwt.return_ok ((), v) diff --git a/src/git-curl/git_curl.mli b/src/git-curl/git_curl.mli deleted file mode 100644 index 7a50c8448..000000000 --- a/src/git-curl/git_curl.mli +++ /dev/null @@ -1 +0,0 @@ -include Smart_git.HTTP