Mercurial > urweb
comparison tests/mproj.ur @ 849:e571fb150a9f
Fix a bug in type class enrichment from substructures
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 16 Jun 2009 14:38:01 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
848:e8594cfa3236 | 849:e571fb150a9f |
---|---|
1 structure M : sig | |
2 type t | |
3 val x : t | |
4 | |
5 structure S : sig | |
6 type u = t | |
7 | |
8 val eq : eq u | |
9 end | |
10 end = struct | |
11 type t = int | |
12 val x = 0 | |
13 | |
14 structure S = struct | |
15 type u = t | |
16 | |
17 val eq = _ | |
18 end | |
19 end | |
20 | |
21 val y = M.x = M.x |