diff options
| author | Jacques Le Normand <rathereasy@gmail.com> | 2010-10-21 04:02:02 +0000 |
|---|---|---|
| committer | Jacques Le Normand <rathereasy@gmail.com> | 2010-10-21 04:02:02 +0000 |
| commit | 304dba8a0fad4714e916b6947e6d572dd5f9dd88 (patch) | |
| tree | ffb2b80cdfccb511820727f4e53bd6fd8bdbd200 /typing/subst.ml | |
| parent | f46f78fd99b42a89d3690325a1325baedb68cfc6 (diff) | |
removed Type_variant, fixed bug in GADT exhaustive check
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/gadts@10734 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'typing/subst.ml')
| -rw-r--r-- | typing/subst.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/typing/subst.ml b/typing/subst.ml index 490ae42a9..029a78c3e 100644 --- a/typing/subst.ml +++ b/typing/subst.ml @@ -166,11 +166,6 @@ let type_declaration s decl = type_kind = begin match decl.type_kind with Type_abstract -> Type_abstract - | Type_variant cstrs -> - Type_variant( - List.map (fun (n, args) -> - (n, List.map (typexp s) args)) - cstrs) | Type_generalized_variant cstrs -> Type_generalized_variant( List.map (fun (n, args,ret_type_opt) -> |