生成的折叠类型、iter 和 map 与 ppx_deriving 文档不一致

Question

I am struggling to properly set up my OCaml environment to use ppx derivers map, fold and iter, as devined here: https://github.com/ocaml-ppx/ppx_deriving#plugins-iter-map-and-fold

My minimal example is here (I am using Base since this is a library I am using in my wider project):

open Base;;

type data = Row of float array | Dim of data array
[@@deriving iter, map, fold, show];;

let t = Row [|2.;2.|];;
pp_data Caml.Format.std_formatter t;;
map_data (fun x -> x +. 1.) t;;
pp_data Caml.Format.std_formatter t;;

The following code is compiled with ocamlfind ocamlc -package base -package ppx_deriving.iter -package ppx_deriving.map -package ppx_deriving.fold -package ppx_deriving.show -linkpkg -g test.ml &&./a.out ; I get a compilation error stating that map_data has type data -> data . But according to the documentation and my general knowledge, map gets a function and a mappable structure, which seems not to be the case here. Testing this in utop gives me the same error.

Is there anything I am missing?

Thank you in advance:)

Answer 1

These derivers work on polymorphic data structures and apply a user function to all values corresponding to the type variables of that structure. Since you don't have any type variables the generated map_data function is deficient, but quite natural, as an absence of the type variable implies a constant function.

In other words, the general structure of the map_x function for some polymorphic type ('s1, ..., 'sN) x with N type variables is

('s1 -> 't1) -> ... -> ('sN -> 'tN) -> ('s1,...,'sN) x -> ('t1,...,'tN) x

Ie, for each type variable it expects a function that maps values of that type to some other type so that the number of arguments to the map function is N+1 In your case since you have zero type variables, there are no mapping functions so you have just x -> x .

If you will redefine your type as

type 'a data = Row of 'a array | Dim of 'a data array
[@@deriving iter, map, fold, show]

You will get map_data with the expect type ('a -> 'b) -> 'a data -> 'b data . The deriver will even understand that an array is a data structure and recurse into it, eg,

let input = Dim [|Row [|1;2;3|]; Row [|3;4;5|]|]
map_data (fun x -> x + 1) input;;
- : int data = Dim [|Row [|2; 3; 4|]; Row [|4; 5; 6|]|]

Of course, if you don't want a polymorphic type in your interface, you can always create a type alias, eg,

type t = float data

and expose map_data as

val map_data : (float -> float) -> t -> t