use String.sub intead of unwrap_uppercase_exotic

rescript-lang · May 29, 2024 · b0c6f1e · b0c6f1e
1 parent 842fcad
commit b0c6f1e
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/jscomp/syntax/src/res_printer.ml b/jscomp/syntax/src/res_printer.ml
@@ -436,12 +436,10 @@ let print_poly_var_ident txt =
   else
     match classify_ident_content ~allow_uident:true txt with
     | UppercaseExoticIdent ->
-      Doc.concat
-        [
-          Doc.text "\"";
-          Doc.text (Ext_ident.unwrap_uppercase_exotic txt);
-          Doc.text "\"";
-        ]
+      let len = String.length txt in
+      (* UppercaseExoticIdent follows the \"..." format,
+         so removing the leading backslash is enough to transform it into polyvar style *)
+      Doc.text ((String.sub [@doesNotRaise]) txt 1 (len - 1))
     | ExoticIdent -> Doc.concat [Doc.text "\""; Doc.text txt; Doc.text "\""]
     | NormalIdent -> (
       match txt with