Skip to content

Instantly share code, notes, and snippets.

@gsg

gsg/test.ml

Created November 27, 2015 13:58
Show Gist options
  • Save gsg/42c48c5429c61b8b430f to your computer and use it in GitHub Desktop.
Save gsg/42c48c5429c61b8b430f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.ml
module rec A : sig
type t = X of ASet.t | Y
val compare : t -> t -> int
end = struct
type t = X of ASet.t | Y
let compare = Pervasives.compare
end
and ASet : Set.S with type elt = A.t = Set.Make(A)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment