forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
fix fork handling
+10
-2
+10
-2
lib/fork_join.ml
+10
-2
lib/fork_join.ml
···
107
107
String.sub name 0 (String.length name - 5))
108
108
with Eio.Io _ -> []
109
109
110
+
(** Normalize URL to git+ format for dev-repo *)
111
+
let normalize_git_url url =
112
+
if String.starts_with ~prefix:"git+" url then url
113
+
else if String.starts_with ~prefix:"git://" url then url
114
+
else if String.starts_with ~prefix:"https://" url then "git+" ^ url
115
+
else if String.starts_with ~prefix:"http://" url then "git+" ^ url
116
+
else url
117
+
110
118
(** Extract name from URL (last path component without .git suffix) *)
111
119
let name_from_url url =
112
120
let uri = Uri.of_string url in
···
240
248
| Error _ -> Sources_registry.empty
241
249
in
242
250
let entry = Sources_registry.{
243
-
url;
244
-
upstream;
251
+
url = normalize_git_url url;
252
+
upstream = Option.map normalize_git_url upstream;
245
253
branch = Some branch;
246
254
reason = Some "Joined to monorepo";
247
255
origin = Some Join;