From 631298df172c1e034d6898ff13d5d5aabb9a5098 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Thu, 19 Dec 2013 20:02:39 +0100 Subject: Removing the useless pattern ident genarg. --- lib/genarg.ml | 7 +++---- lib/genarg.mli | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'lib') diff --git a/lib/genarg.ml b/lib/genarg.ml index 6520669fa..3fb815510 100644 --- a/lib/genarg.ml +++ b/lib/genarg.ml @@ -12,7 +12,7 @@ open Util type argument_type = (* Basic types *) | IntOrVarArgType - | IdentArgType of bool + | IdentArgType | VarArgType (* Specific types *) | GenArgType @@ -30,7 +30,7 @@ type argument_type = let rec argument_type_eq arg1 arg2 = match arg1, arg2 with | IntOrVarArgType, IntOrVarArgType -> true -| IdentArgType b1, IdentArgType b2 -> (b1 : bool) == b2 +| IdentArgType, IdentArgType -> true | VarArgType, VarArgType -> true | GenArgType, GenArgType -> true | ConstrArgType, ConstrArgType -> true @@ -49,8 +49,7 @@ let rec argument_type_eq arg1 arg2 = match arg1, arg2 with let rec pr_argument_type = function | IntOrVarArgType -> str "int_or_var" -| IdentArgType true -> str "ident" -| IdentArgType false -> str "pattern_ident" +| IdentArgType -> str "ident" | VarArgType -> str "var" | GenArgType -> str "genarg" | ConstrArgType -> str "constr" diff --git a/lib/genarg.mli b/lib/genarg.mli index 51c261742..f275b0d00 100644 --- a/lib/genarg.mli +++ b/lib/genarg.mli @@ -191,7 +191,7 @@ val app_pair : type argument_type = (** Basic types *) | IntOrVarArgType - | IdentArgType of bool + | IdentArgType | VarArgType (** Specific types *) | GenArgType -- cgit v1.2.3