Hi list,

I have the following functor :

module Make(A : sig type a val f : a -> int end) =
struct
  type t = [ A.a | `B ]
          (* impossible : A.a is abstract and not a variant *)

  let foo = function
    | #A.a as a -> A.f a (* no assumption about the tags of A.a *)
    | `B        -> 0

end

I'd like to know if it is possible to describe A.a as a variant type
without write its tags.

Cheers,
Julien Signoles.
-- 
mailto : Julien.Signoles@lri.fr ; http : www.lri.fr/~signoles
"In theory, practice and theory are the same,
but in practice they are different" (Larry McVoy)

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners