19 lines
393 B
OCaml
19 lines
393 B
OCaml
(* https://tarides.com/blog/2019-05-09-an-introduction-to-ocaml-ppx-ecosystem/ *)
|
|
|
|
open Ppxlib
|
|
|
|
let expand ~ctxt:_ (expr: expression) =
|
|
expr
|
|
|
|
let ext = Extension.V3.declare
|
|
"monomorphic"
|
|
Extension.Context.expression
|
|
Ast_pattern.(single_expr_payload __)
|
|
expand
|
|
|
|
let rule = Context_free.Rule.extension ext
|
|
|
|
let () =
|
|
Driver.register_transformation
|
|
~rules:[rule]
|
|
"monomorphic"
|