From 33ee444dbdffab7ed9aacfa1e9d10dee6fe813a2 Mon Sep 17 00:00:00 2001
From: goodness chris-ugari <goodnesschrisugari@yahoo.com>
Date: Mon, 26 Apr 2021 13:36:59 +0100
Subject: [PATCH] upgrade the Ocaml scripts to match the latest Omd version

---
 script/code.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/script/code.ml b/script/code.ml
index 6a4499d6c..e9d9d9f25 100644
--- a/script/code.ml
+++ b/script/code.ml
@@ -139,7 +139,7 @@ let highlight_ocaml =
                            phrase subst in
     (* Wrap the code in a <pre> block so no Omd.Paragraph are generated, etc. *)
     match Omd.of_string ("<pre>" ^ p ^ "</pre>") with
-    | [Omd.Html_block(_,_,o)] -> o
+    | Omd.[{ bl_desc = Html_block o; _ }] -> o
     | _ -> assert false
   )