update comment

ocaml · Jan 31, 2021 · e85094f · e85094f
1 parent c7681a7
commit e85094f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/typing/printtyp.ml b/typing/printtyp.ml
@@ -1025,8 +1025,8 @@ let rec tree_of_typexp sch ty =
     | Tnil | Tfield _ ->
         tree_of_typobject sch ty None
     | Tsubst _ ->
+        (* This case should only happen when debugging the compiler *)
         Otyp_stuff "<Tsubst>"
-          (* This case should not happen *)
     | Tlink _ ->
         fatal_error "Printtyp.tree_of_typexp"
     | Tpoly (ty, []) ->