Source file `deriving_hash.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
open! Import
include Deriving_hash_intf

module Of_deriving_hash
  (Repr : S) (M : sig
    type t

    val to_repr : t -> Repr.t
  end) =
struct
  let hash_fold_t state t = Repr.hash_fold_t state (M.to_repr t)
  let hash = Ppx_hash_lib.Std.Hash.of_fold hash_fold_t
end