Clean up printer file

Author: nojaf

tools/src/prettier_printer.ml

@@ -1,5 +1,3 @@
-(* open Analysis *)
-
 module DSL = struct
   type namedField = {name: string; value: oak}
 
@@ -271,43 +269,3 @@ module CodePrinter = struct
     in
     expressionFitsOnRestOfLine short long
 end
-
-(*
-    Interpret using  ocaml /home/nojaf/projects/rescript-vscode/tools/src/prettier_printer.ml
-*)
-
-(*
-open DSL
-
-let oak =
-  DSL.Record
-    [
-      {
-        name = "zig";
-        value =
-          DSL.Record
-            [
-              {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
-              {name = "member"; value = Ident "Zigbaaaaaaaaar"};
-            ];
-      };
-      {
-        name = "roxas";
-        value =
-          List
-            [
-              Ident "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj";
-              Ident "meeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee";
-              DSL.Record
-                [
-                  {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
-                  {name = "member"; value = Ident "Zigbaaaaaaaaar"};
-                ];
-            ];
-      };
-      {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
-    ]
-
- let _ =
-   CodePrinter.genOak oak {CodePrinter.emptyContext with max_line_length = 20}
-   |> CodePrinter.dump |> Format.printf "%s\n" *)

tools/src/printer_sandbox.ml

@@ -0,0 +1,39 @@
+#use "prettier_printer.ml";;
+(*
+    Interpret using  ocaml ./tools/src/printer_sandbox.ml
+*)
+
+open DSL
+
+let oak =
+  Record
+    [
+      {
+        name = "hello";
+        value =
+          Record
+            [
+              {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
+              {name = "member"; value = Ident "baazaaaaaaar"};
+            ];
+      };
+      {
+        name = "roxas";
+        value =
+          List
+            [
+              Ident "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj";
+              Ident "meeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee";
+              Record
+                [
+                  {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
+                  {name = "member"; value = Ident "bazaaaaaaaaar"};
+                ];
+            ];
+      };
+      {name = "foo"; value = Ident "baaaaaaaaaaaaaaaaar"};
+    ]
+
+let _ =
+  CodePrinter.genOak oak {CodePrinter.emptyContext with max_line_length = 20}
+  |> CodePrinter.dump |> Format.printf "%s\n"