diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-17 01:58:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-17 02:50:34 +0100 |
| commit | d3ee6b2fbcd0fbb666af7f1920446e809e8d6e1e (patch) | |
| tree | 7513c21eb6369d45c40106238c60a53e43ef6948 /lib/genarg.ml | |
| parent | 88a16f49efd315aa1413da67f6d321a5fe269772 (diff) | |
Getting rid of the awkward unpack mechanism from Genarg.
Diffstat (limited to 'lib/genarg.ml')
| -rw-r--r-- | lib/genarg.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lib/genarg.ml b/lib/genarg.ml index 6c10dee2a..58d83ce7a 100644 --- a/lib/genarg.ml +++ b/lib/genarg.ml @@ -203,14 +203,6 @@ let raw : ('a, 'b, 'c, rlevel) cast -> _ = function Rcast x -> x let glb : ('a, 'b, 'c, glevel) cast -> _ = function Gcast x -> x let top : ('a, 'b, 'c, tlevel) cast -> _ = function Tcast x -> x -type ('r, 'l) unpacker = - { unpacker : 'a 'b 'c. ('a, 'b, 'c) genarg_type -> ('a, 'b, 'c, 'l) cast -> 'r } - -let unpack (type l) (pack : (_, l) unpacker) (GenArg (t, obj) : l generic_argument) = match t with -| Rawwit t -> pack.unpacker t (Rcast obj) -| Glbwit t -> pack.unpacker t (Gcast obj) -| Topwit t -> pack.unpacker t (Tcast obj) - (** Type transformers *) type ('r, 'l) list_unpacker = |