just some ocamling around with fieldslib

test.ml

open Core.Std

module A : sig
  type t = {
    foo : string;
    bar : int
  } [@@deriving fields]
end = struct
  type t = {
    foo : string;
    bar : int
  } [@@deriving fields]

end

let () =
(printf "%s\n" (Field.name A.Fields.foo));
(printf "%s\n" (Field.name A.Fields.bar))


(* which can then be built with `ocamlfind ocamlc -linkpkg -thread -package core -package ppx_deriving -package ppx_fields_conv test.ml -o test.byte` *)