Mark where the stack overflow happens.

Author: cristianoc

analysis/src/PrintType.ml

@@ -1,7 +1,9 @@
 let printExpr ?(lineWidth = 60) typ =
   Printtyp.reset_names ();
+  try
   Res_doc.toString ~width:lineWidth
-    (Res_outcome_printer.printOutTypeDoc (Printtyp.tree_of_typexp false typ))
+    (Res_outcome_printer.printOutTypeDoc (Printtyp.tree_of_typexp false typ (* HERE *)))
+  with _ -> "Error: could not print type"
 
 let printDecl ?printNameAsIs ~recStatus name decl =
   Printtyp.reset_names ();

analysis/tests/src/expected/PolyRec.res.txt

@@ -1,2 +1,3 @@
 Hover src/PolyRec.res 12:10
-Fatal error: exception Stack overflow
+{"contents": {"kind": "markdown", "value": "```rescript\nError: could not print type\n```"}}
+