Move isTupleArray to res_parsetree_viewer

Author: bloodyowl

jscomp/syntax/src/res_parsetree_viewer.ml

@@ -747,3 +747,13 @@ let isRewrittenUnderscoreApplySugar expr =
   match expr.pexp_desc with
   | Pexp_ident {txt = Longident.Lident "_"} -> true
   | _ -> false
+
+let isTupleArray (expr : Parsetree.expression) =
+  let isPlainTuple (expr : Parsetree.expression) =
+    match expr with
+    | {pexp_desc = Pexp_tuple _} -> true
+    | _ -> false
+  in
+  match expr with
+  | {pexp_desc = Pexp_array items} -> List.for_all isPlainTuple items
+  | _ -> false

jscomp/syntax/src/res_parsetree_viewer.mli

@@ -170,3 +170,5 @@ val hasIfLetAttribute : Parsetree.attributes -> bool
 val isRewrittenUnderscoreApplySugar : Parsetree.expression -> bool
 
 val isFunNewtype : Parsetree.expression -> bool
+
+val isTupleArray : Parsetree.expression -> bool

jscomp/syntax/src/res_printer.ml

@@ -427,16 +427,6 @@ let isValidNumericPolyvarNumber (x : string) =
          | _ -> false)
   else a >= 48
 
-let isTupleArray (expr : Parsetree.expression) =
-  let isPlainTuple (expr : Parsetree.expression) =
-    match expr with
-    | {pexp_desc = Pexp_tuple _} -> true
-    | _ -> false
-  in
-  match expr with
-  | {pexp_desc = Pexp_array items} -> List.for_all isPlainTuple items
-  | _ -> false
-
 (* Exotic identifiers in poly-vars have a "lighter" syntax: #"ease-in" *)
 let printPolyVarIdent txt =
   (* numeric poly-vars don't need quotes: #644 *)
@@ -4016,7 +4006,7 @@ and printPexpApply ~state expr cmtTbl =
               };
         },
         [(Nolabel, keyValues)] )
-    when isTupleArray keyValues ->
+    when Res_parsetree_viewer.isTupleArray keyValues ->
     Doc.concat
       [
         Doc.text "dict{";