Monorepo management for opam overlays
git: rename redundant merge_/fetch_ prefixes, Fmt.str (merlint)
- merge_trees → trees, merge_entry → entry, etc. in Merge module
- fetch_local → local in Fetch module (+ update monopam refs)
- StringSet → String_set
- Printf → Fmt in test_pack
+3
-3
+2
-2
lib/git_cli.ml
+2
-2
lib/git_cli.ml
···
212
212
(* Fetch from URL and return the commit hash for the branch.
213
213
214
214
For file:// URLs (and bare local paths) this uses the native
215
-
[Git.Fetch.fetch_local] which copies objects directly between the two
215
+
[Git.Fetch.local] which copies objects directly between the two
216
216
on-disk repos — no [git] subprocess, no zlib re-compression of pack
217
217
contents, fully cancellable via the Eio switch. The native path covers
218
218
the entire monopam test suite and the daily-driver local-checkout flow
···
230
230
let src_repo = open_local ~sw ~fs src_fpath in
231
231
let dst_repo = open_local ~sw ~fs repo in
232
232
match
233
-
Git.Fetch.fetch_local ~src:src_repo ~dst:dst_repo ~ref_name:branch
233
+
Git.Fetch.local ~src:src_repo ~dst:dst_repo ~ref_name:branch
234
234
with
235
235
| Ok hash -> Ok (Git.Hash.to_hex hash)
236
236
| Error (`Msg msg) -> Error (Io_error msg)
+1
-1
lib/git_cli.mli
+1
-1
lib/git_cli.mli
···
141
141
and returns the commit hash of [FETCH_HEAD].
142
142
143
143
For [file://] URLs and bare local paths the fetch goes through
144
-
{!Git.Fetch.fetch_local} — pure OCaml, no [git] subprocess. HTTP/SSH URLs
144
+
{!Git.Fetch.local} — pure OCaml, no [git] subprocess. HTTP/SSH URLs
145
145
still shell out to [git fetch].
146
146
147
147
@param sw