12 lines
232 B
Text
12 lines
232 B
Text
open Base
|
|
|
|
module No_comparing2 = struct
|
|
(* Checks that we don't trigger an 'unused rec' warning. *)
|
|
type t =
|
|
{ a : t [@compare.ignore]
|
|
; b : (t[@compare.ignore]) * int
|
|
}
|
|
[@@deriving compare]
|
|
end
|
|
|
|
[%%expect {| |}]
|