feat(grainfmt): Drastically improve performance (#1042)

fix(grainfmt): Improve correctness of formatting
chore(grainfmt): Refactor comment handling
chore(grainfmt): Refactor some code printing
fix(compiler): Correctly supply locations for types & variants

compiler/grainformat/debug.re

@@ -103,3 +103,7 @@ let debug_pattern = (pat: Parsetree.pattern) => {
   | PPatAlias(pattern, loc) => print_endline("PPatAlias")
   };
 };
+
+let print_comments = (comments: list(Grain_parsing.Parsetree.comment)) => {
+  List.map(Comments.print_comment, comments);
+};

compiler/grainformat/dune

@@ -1,7 +1,7 @@
 (library
- (name reformat)
- (public_name grainformat.reformat)
- (modules reformat res_doc res_minibuffer walktree debug)
+ (name format)
+ (public_name grainformat.format)
+ (modules format res_doc res_minibuffer debug comment_utils)
  (libraries grain grain_diagnostics grain_parsing grain_utils))
 
 (executable
@@ -14,7 +14,7 @@
  (flags
   (:standard
    (:include ./config/flags.sexp)))
- (libraries cmdliner grain grain_utils grain_parsing grainformat.reformat
+ (libraries cmdliner grain grain_utils grain_parsing grainformat.format
    binaryen.native dune-build-info))
 
 (rule
@@ -32,6 +32,6 @@
  ; exe is only here so dune-build-info works
  (modes exe js)
  (libraries cmdliner grain grain_diagnostics grain_utils grain_parsing
-   grainformat.reformat binaryen.js dune-build-info)
+   grainformat.format binaryen.js dune-build-info)
  (js_of_ocaml
   (flags --no-sourcemap --no-extern-fs --quiet)))