diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-05-28 13:10:58 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-28 13:10:58 +0200 |
commit | 1c74df16e7a539f21418ddb09419ff0106960789 (patch) | |
tree | 2a215fdd3d7ea5a92809a2d0319d17ba73af5549 /test-suite | |
parent | d679661a6b0219e073c1740f7ed634e36ad4c2aa (diff) | |
parent | ec57e7bedbd6719ad1b03800d6a8d7efd1b75ee4 (diff) |
Merge PR#679: Bug 5546, qualify datatype constructors when needed in Show Match
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/output/ShowMatch.out | 8 | ||||
-rw-r--r-- | test-suite/output/ShowMatch.v | 13 |
2 files changed, 21 insertions, 0 deletions
diff --git a/test-suite/output/ShowMatch.out b/test-suite/output/ShowMatch.out new file mode 100644 index 000000000..e5520b8df --- /dev/null +++ b/test-suite/output/ShowMatch.out @@ -0,0 +1,8 @@ +match # with + | f => + end + +match # with + | A.f => + end + diff --git a/test-suite/output/ShowMatch.v b/test-suite/output/ShowMatch.v new file mode 100644 index 000000000..02b7eada8 --- /dev/null +++ b/test-suite/output/ShowMatch.v @@ -0,0 +1,13 @@ +(* Bug 5546 complained about unqualified constructors in Show Match output, + when qualification is needed to disambiguate them +*) + +Module A. + Inductive foo := f. + Show Match foo. (* no need to disambiguate *) +End A. + +Module B. + Inductive foo := f. + (* local foo shadows A.foo, so constructor "f" needs disambiguation *) + Show Match A.foo. |