diff view: translate \n to <br> #8

Merged
reynir merged 2 commits from fix into main 2025-01-08 16:00:55 +00:00
Showing only changes of commit e26af2dfdf - Show all commits

View file

@ -827,13 +827,10 @@ let duniverse_diffs diffs =
let opam_diffs diffs = let opam_diffs diffs =
List.concat_map (fun pd -> 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.h4 [ txtf "%a" Opamdiff.pp_opam_diff pd ] ::
H.h5 [ H.txt "diff" ] :: H.h5 [ H.txt "diff" ] ::
H.code diff :: []) H.pre [ H.code [ H.txt pd.diff ] ] ::
H.br () :: [])
diffs diffs
let compare_builds let compare_builds