diff options
| author | Emilio Jesus Gallego Arias | 2017-01-16 13:02:55 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-04-24 23:58:22 +0200 |
| commit | ad3aab9415b98a247a6cbce05752632c3c42391c (patch) | |
| tree | 1fba7e25aa16dbb7e42db283f8210b31a0b8931d /interp/notation.ml | |
| parent | 6d9e008ffd81bbe927e3442fb0c37269ed25b21f (diff) | |
[location] Move Glob_term.cases_pattern to located.
We continue the uniformization pass. No big news here, trying to be
minimally invasive.
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 04711808b7..aef0892996 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -273,7 +273,7 @@ let glob_constr_keys = function | _ -> [Oth] let cases_pattern_key = function - | PatCstr (_,ref,_,_) -> RefKey (canonical_gr (ConstructRef ref)) + | _, PatCstr (ref,_,_) -> RefKey (canonical_gr (ConstructRef ref)) | _ -> Oth let notation_constr_key = function (* Rem: NApp(NRef ref,[]) stands for @ref *) |