pull/48/head
Robur 2 years ago
parent b34fe8b959
commit 1e167fe02e

@ -44,4 +44,3 @@ let compare_pkgs p1 p2 =
String_map.empty (Astring.String.cuts ~sep:"\n" p)
in
diff_map (parse_pkgs p1) (parse_pkgs p2)

@ -294,17 +294,17 @@ let opam_diffs diffs =
let l, r = Opamdiff.commands_to_strings a in
[
h5 [ txt "build instruction (without common prefix) modifications, old:" ] ;
ul (List.map (fun s -> li [ txt s ]) l) ;
code (List.concat_map (fun s -> [ txt s ; br () ]) l) ;
h5 [ txt "new" ] ;
ul (List.map (fun s -> li [ txt s ]) r)
code (List.concat_map (fun s -> [ txt s ; br () ]) r)
]) @
(match pd.Opamdiff.install with None -> [] | Some a ->
let l, r = Opamdiff.commands_to_strings a in
[
h5 [ txt "install instruction (without common prefix) modifications, old:" ] ;
ul (List.map (fun s -> li [ txt s ]) l) ;
code (List.concat_map (fun s -> [ txt s ; br () ]) l) ;
h5 [ txt "new" ] ;
ul (List.map (fun s -> li [ txt s ]) r)
code (List.concat_map (fun s -> [ txt s ; br () ]) r)
]) @
(match pd.Opamdiff.url with None -> [] | Some a ->
let l, r = Opamdiff.opt_url_to_string a in

Loading…
Cancel
Save