From 0a025adaae73f3c776b774419560d6ab23dd30f1 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Wed, 8 Jan 2025 15:34:43 +0100
Subject: [PATCH] diff view: translate \n to <br>

---
 lib/views.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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