Expose Lexer.comments in the Parse module

Author: wrobson-js

ast/import.ml

@@ -211,4 +211,6 @@ module Parse = struct
   let core_type lexbuf = core_type lexbuf |> Of_ocaml.copy_core_type
   let expression lexbuf = expression lexbuf |> Of_ocaml.copy_expression
   let pattern lexbuf = pattern lexbuf |> Of_ocaml.copy_pattern
+
+  let comments_in_last_parse = comments_in_last_parse
 end

astlib/parse.ml

@@ -1 +1,3 @@
 include Ocaml_common.Parse
+
+let comments_in_last_parse = Ocaml_common.Lexer.comments

astlib/parse.mli

@@ -20,3 +20,6 @@ val expression : Lexing.lexbuf -> Parsetree.expression
 
 val pattern : Lexing.lexbuf -> Parsetree.pattern
 (** Parse a pattern *)
+
+val comments_in_last_parse : unit -> (string * Location.t) list
+(** Get the comments from the last parse *)