diff view: translate \n to <br> #8
1 changed files with 2 additions and 5 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue