diff --git a/lib/views.ml b/lib/views.ml index fcc6758..b43f919 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -827,9 +827,13 @@ let duniverse_diffs diffs = let opam_diffs diffs = List.concat_map (fun pd -> + let diff = + List.concat_map (fun line -> [ H.txt line ; H.br () ]) + (String.split_on_char '\n' pd.Opamdiff.diff) + in H.h4 [ txtf "%a" Opamdiff.pp_opam_diff pd ] :: H.h5 [ H.txt "diff" ] :: - H.code [ H.txt pd.diff ; H.br () ] :: []) + H.code diff :: []) diffs let compare_builds