package ppx_deriving_yaml

  1. Overview
  2. Docs

Source file attrs.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
open Ppxlib
let key =
  Attribute.declare
    "yaml.key"
    Attribute.Context.label_declaration
    Ast_pattern.(pstr (pstr_eval (estring __) nil ^:: nil))
    (fun x -> x)

    let name =
      Attribute.declare
        "yaml.name"
        Attribute.Context.constructor_declaration
        Ast_pattern.(pstr (pstr_eval (estring __) nil ^:: nil))
        (fun x -> x)