resolve mr discussion

uzh · Dec 16, 2024 · 746193b · 746193b
1 parent cba0e69
commit 746193b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/pool/web/view/layout/layout.ml b/pool/web/view/layout/layout.ml
@@ -87,9 +87,8 @@ module Tenant = struct
     let%lwt head_script, body_script =
       let open Settings.PageScript in
       let%lwt page_scripts = find database_label in
-      let make_script = function
-        | None -> []
-        | Some s -> [ script (Unsafe.data (value s)) ]
+      let make_script =
+        CCOption.map_or ~default:[] (value %> Unsafe.data %> script %> CCList.return)
       in
       let head = make_script page_scripts.head in
       let body = make_script page_scripts.body in