diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-28 12:56:29 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-28 12:56:29 +0100 |
commit | 4444f04cfdbe449d184ac1ce0a56eb484805364d (patch) | |
tree | dd15b08757987daba5e4089fb5b9f27fb3eb2138 | |
parent | d8cea1c80b71d2cd65daa4bc2126f1bfc61b0047 (diff) |
Fixing the return type of the Atoken symbol.
-rw-r--r-- | intf/extend.mli | 2 | ||||
-rw-r--r-- | parsing/pcoq.ml | 2 | ||||
-rw-r--r-- | parsing/pcoq.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/intf/extend.mli b/intf/extend.mli index aa0db52d7..975f194b0 100644 --- a/intf/extend.mli +++ b/intf/extend.mli @@ -54,7 +54,7 @@ type simple_constr_prod_entry_key = (** {5 Type-safe grammar extension} *) type ('self, 'a) symbol = -| Atoken : Tok.t -> ('self, Tok.t) symbol +| Atoken : Tok.t -> ('self, string) symbol | Alist1 : ('self, 'a) symbol -> ('self, 'a list) symbol | Alist1sep : ('self, 'a) symbol * string -> ('self, 'a list) symbol | Alist0 : ('self, 'a) symbol -> ('self, 'a list) symbol diff --git a/parsing/pcoq.ml b/parsing/pcoq.ml index b017fddc7..4565b87a0 100644 --- a/parsing/pcoq.ml +++ b/parsing/pcoq.ml @@ -67,7 +67,7 @@ let weaken_entry x = Gramobj.weaken_entry x *) type ('self, 'a) entry_key = ('self, 'a) Extend.symbol = -| Atoken : Tok.t -> ('self, Tok.t) entry_key +| Atoken : Tok.t -> ('self, string) entry_key | Alist1 : ('self, 'a) entry_key -> ('self, 'a list) entry_key | Alist1sep : ('self, 'a) entry_key * string -> ('self, 'a list) entry_key | Alist0 : ('self, 'a) entry_key -> ('self, 'a list) entry_key diff --git a/parsing/pcoq.mli b/parsing/pcoq.mli index 9a27b6e04..c224dbad9 100644 --- a/parsing/pcoq.mli +++ b/parsing/pcoq.mli @@ -113,7 +113,7 @@ type gram_reinit = gram_assoc * gram_position *) type ('self, 'a) entry_key = ('self, 'a) Extend.symbol = -| Atoken : Tok.t -> ('self, Tok.t) entry_key +| Atoken : Tok.t -> ('self, string) entry_key | Alist1 : ('self, 'a) entry_key -> ('self, 'a list) entry_key | Alist1sep : ('self, 'a) entry_key * string -> ('self, 'a list) entry_key | Alist0 : ('self, 'a) entry_key -> ('self, 'a list) entry_key |