From 4ba3c8645238cecee8bc8406730afe3234c98f6f Mon Sep 17 00:00:00 2001
From: Gabriel Nordeborn <gabbe.nord@gmail.com>
Date: Mon, 18 Dec 2023 18:52:14 +0100
Subject: [PATCH] playground: fix bug when printing recursive polyvariant types
 without concrete declarations

---
 jscomp/jsoo/jsoo_playground_main.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/jscomp/jsoo/jsoo_playground_main.ml b/jscomp/jsoo/jsoo_playground_main.ml
index ddcc93f77d..f15e6e70ca 100644
--- a/jscomp/jsoo/jsoo_playground_main.ml
+++ b/jscomp/jsoo/jsoo_playground_main.ml
@@ -304,6 +304,7 @@ let rescript_parse ~filename src =
 module Printer = struct
   let printExpr typ =
     Printtyp.reset_names();
+    Printtyp.reset_and_mark_loops typ;
     Res_doc.toString
       ~width:60 (Res_outcome_printer.printOutTypeDoc (Printtyp.tree_of_typexp false typ))