module M = struct
include Validate (struct type nonrec t = t [@@deriving_inline compare, sexp_of]
let compare : t -> t -> int = compare
let sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t = sexp_of_t
[@@@end] end)
end
1.7.0 --config=JaneStreet
module M = struct
include Validate (struct type nonrec t = t [@@deriving_inline compare, sexp_of]
let compare : t -> t -> int = compare
let sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t = sexp_of_t
[@@@end] end)
end
This is from lib/base/boot/comparablem.ml 1.6.1
1.7.0 --config=JaneStreet
The [let compare] get indented far to the right.