diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2016-01-23 15:17:29 -0500 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2016-01-23 15:58:06 -0500 |
| commit | 5cbcc8fd761df0779f6202fef935f07cfef8a228 (patch) | |
| tree | 886d05ab59b157b812879facc6ef3fa3defc7d20 /interp/dumpglob.ml | |
| parent | ccdc62a6b4722c38f2b37cbf21b14e5094255390 (diff) | |
Implement support for universe binder lists in Instance and Program Fixpoint/Definition.
Diffstat (limited to 'interp/dumpglob.ml')
| -rw-r--r-- | interp/dumpglob.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 0d9d021c6..44a62ef37 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -248,7 +248,7 @@ let dump_def ty loc secpath id = let dump_definition (loc, id) sec s = dump_def s loc (Names.DirPath.to_string (Lib.current_dirpath sec)) (Names.Id.to_string id) -let dump_constraint ((loc, n), _, _) sec ty = +let dump_constraint (((loc, n),_), _, _) sec ty = match n with | Names.Name id -> dump_definition (loc, id) sec ty | Names.Anonymous -> () |