Source file `bam_ppx.ml`

1
2
3
4
5
6
7
8
9
10
11
12
let deriving_str_type_declaration ~ctxt:_ (rec_flag, type_declarations) =
  Deriver.derive_type_declarations rec_flag type_declarations

let str_type_decl =
  Ppxlib.Deriving.Generator.V2.make_noarg deriving_str_type_declaration

let deriving_str_module_type_decl = Deriver.derive_module_type_declaration

let str_module_type_decl =
  Ppxlib.Deriving.Generator.V2.make_noarg deriving_str_module_type_decl

let deriver = Ppxlib.Deriving.add "gen" ~str_type_decl ~str_module_type_decl