diff --git a/src/haz3lweb/view/ExplainThis.re b/src/haz3lweb/view/ExplainThis.re index 3ab106578..4d6953ce1 100644 --- a/src/haz3lweb/view/ExplainThis.re +++ b/src/haz3lweb/view/ExplainThis.re @@ -185,7 +185,9 @@ let mk_translation = (~inject, text: string): (list(Node.t), ColorSteps.t) => { List.fold_left( ((msg, mapping), elem) => { switch (elem) { - | Omd.Paragraph(_, d) => translate_inline(d, msg, mapping, ~inject) + | Omd.Paragraph(_, d) => + let (n, _) = translate_inline(d, [], mapping, ~inject); + (List.append(msg, [Node.p(n)]), mapping); | Omd.List(_, _, _, items) => let (bullets, mapping) = List.fold_left(