From 343bdd0b98f559fd132567efb80fca37a23fe850 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 24 Feb 2024 11:29:42 -0500
Subject: [PATCH] fix

---
 src/core/meta_map.ourown.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/meta_map.ourown.ml b/src/core/meta_map.ourown.ml
index ae3aa65..dadadd1 100644
--- a/src/core/meta_map.ourown.ml
+++ b/src/core/meta_map.ourown.ml
@@ -50,7 +50,7 @@ end)
 
 type t = { m: exn_pair M.t } [@@unboxed]
 
-let empty = M.empty
+let empty : t = { m = M.empty }
 let[@inline] mem k (self : t) = M.mem (Key.id k) self.m
 
 let find_exn (type a) (k : a Key.t) (self : t) : a =