From 2611df7c2f33e2c6b01c9ffbf96b1359f3f3c3e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Eduardo=20Garc=C3=ADa=20Maleta?=
 <egmaleta.secondary@proton.me>
Date: Fri, 16 Feb 2024 19:32:14 -0500
Subject: [PATCH] remove option type from
 Workshop.presentation.additional_links

---
 src/ocamlorg_data/data.mli   | 2 +-
 tool/ood-gen/lib/workshop.ml | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/ocamlorg_data/data.mli b/src/ocamlorg_data/data.mli
index eeeac8a1c6..291f6a2560 100644
--- a/src/ocamlorg_data/data.mli
+++ b/src/ocamlorg_data/data.mli
@@ -365,7 +365,7 @@ module Workshop : sig
     video : string option;
     slides : string option;
     poster : bool;
-    additional_links : string list option;
+    additional_links : string list;
   }
 
   type t = {
diff --git a/tool/ood-gen/lib/workshop.ml b/tool/ood-gen/lib/workshop.ml
index 7453f84ce8..e7e3e76994 100644
--- a/tool/ood-gen/lib/workshop.ml
+++ b/tool/ood-gen/lib/workshop.ml
@@ -49,10 +49,11 @@ type presentation = {
   video : string option;
   slides : string option;
   poster : bool;
-  additional_links : string list option;
+  additional_links : string list;
 }
 [@@deriving
-  stable_record ~version:presentation_metadata ~modify:[ poster ],
+  stable_record ~version:presentation_metadata
+    ~modify:[ poster; additional_links ],
     show { with_path = false }]
 
 type t = {
@@ -75,6 +76,7 @@ type t = {
 let of_presentation_metadata pm =
   presentation_of_presentation_metadata pm
     ~modify_poster:(Option.value ~default:false)
+    ~modify_additional_links:(Option.value ~default:[])
 
 let of_metadata m =
   of_metadata m ~slug:(Utils.slugify m.title)
@@ -116,7 +118,7 @@ type presentation = {
   video : string option;
   slides : string option;
   poster : bool;
-  additional_links : string list option;
+  additional_links : string list;
 }
 
 type t = {