print pexp_array

rescript-lang · May 28, 2024 · e0a1815 · e0a1815
1 parent a38a5bd
commit e0a1815
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/analysis/src/DumpAst.ml b/analysis/src/DumpAst.ml
@@ -152,6 +152,14 @@ and printExprItem expr ~pos ~indentation =
   ^ (expr.pexp_loc |> printLocDenominator ~pos)
   ^
   match expr.Parsetree.pexp_desc with
+  | Pexp_array exprs ->
+    "Pexp_array(\n"
+    ^ addIndentation (indentation + 1)
+    ^ (exprs
+      |> List.map (fun expr ->
+             expr |> printExprItem ~pos ~indentation:(indentation + 1))
+      |> String.concat ("\n" ^ addIndentation (indentation + 1)))
+    ^ "\n" ^ addIndentation indentation ^ ")"
   | Pexp_match (matchExpr, cases) ->
     "Pexp_match("
     ^ printExprItem matchExpr ~pos ~indentation:0