From 4ececf99603db6a5982109b72c0fb3a1413cad2b Mon Sep 17 00:00:00 2001
From: Louis Gesbert <louis.gesbert@ocamlpro.com>
Date: Wed, 8 Nov 2023 11:47:31 +0100
Subject: [PATCH] Fix api_web plugin

---
 compiler/plugins/api_web.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/plugins/api_web.ml b/compiler/plugins/api_web.ml
index 51d8b88b..aa210798 100644
--- a/compiler/plugins/api_web.ml
+++ b/compiler/plugins/api_web.ml
@@ -93,6 +93,7 @@ module To_jsoo = struct
     | TArray t ->
       Format.fprintf fmt "Js.array %@%@ Array.map (fun x -> %a x)"
         format_typ_to_jsoo t
+    | TDefault t -> format_typ_to_jsoo fmt t
     | TAny | TTuple _ -> Format.fprintf fmt "Js.Unsafe.inject"
     | _ -> Format.fprintf fmt ""