playground: open melange_comp_libs in flags

melange-re · Jun 5, 2023 · 1620cbc · 1620cbc
1 parent c4ad80d
commit 1620cbc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 8 deletions.
diff --git a/bin/dune b/bin/dune
@@ -16,6 +16,7 @@
 
 (executable
  (name jsoo_main)
+ (flags :standard -open Melange_compiler_libs)
  (modules jsoo_main jsoo_common)
  (libraries core melange_compiler_libs melange_ppx)
  (modes js))
diff --git a/bin/jsoo_main.ml b/bin/jsoo_main.ml
@@ -23,9 +23,6 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 module Js = Jsoo_common.Js
-open Melange_compiler_libs
-
-(** *)
 
 (*
  Error:
@@ -64,14 +61,14 @@ let compile impl str : Js.Unsafe.obj =
   try
     (* default *)
     let ast = impl (Lexing.from_string str) in
-    let ast : Melange_compiler_libs.Parsetree.structure =
+    let ast : Parsetree.structure =
       let ppxlib_ast : Ppxlib_ast__.Versions.OCaml_414.Ast.Parsetree.structure =
-        Obj.magic (ast : Melange_compiler_libs.Parsetree.structure)
+        Obj.magic (ast : Parsetree.structure)
       in
       let converted =
         Convert.copy_structure (Ppxlib.Driver.map_structure ppxlib_ast)
       in
-      (Obj.magic converted : Melange_compiler_libs.Parsetree.structure)
+      (Obj.magic converted : Parsetree.structure)
     in
     let typed_tree =
       let { Typedtree.structure; coercion; shape = _; signature }, _finalenv =

diff --git a/bin/jsoo_main.mli b/bin/jsoo_main.mli
@@ -22,5 +22,4 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-val make_compiler :
-  string -> (Lexing.lexbuf -> Melange_compiler_libs.Parsetree.structure) -> unit
+val make_compiler : string -> (Lexing.lexbuf -> Parsetree.structure) -> unit