Monorepo management for opam overlays
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

fix fork handling

+10 -2
+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;