From e228cad20480a69c454924e7873c14160a97912b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ulysse=20G=C3=A9rard?= Date: Mon, 22 Jan 2024 14:17:25 +0100 Subject: [PATCH] tests:show that some ext constructor are missing from the index --- testsuite/tests/shape-index/index_constrs.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/testsuite/tests/shape-index/index_constrs.ml b/testsuite/tests/shape-index/index_constrs.ml index 356c8183a336..813fbb90b236 100644 --- a/testsuite/tests/shape-index/index_constrs.ml +++ b/testsuite/tests/shape-index/index_constrs.ml @@ -29,3 +29,4 @@ let f x = match x with | exception E -> () let _ = None +let _ = [%extension_constructor M.F]