summaryrefslogtreecommitdiff
path: root/tests/mproj.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-06-16 14:38:01 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-06-16 14:38:01 -0400
commit4dce690086c8d6132c22d5c47a0561a4b1261293 (patch)
tree58dd4551f8c5d971e12e1c704f7abd9d90f3373e /tests/mproj.ur
parentc23f27988ff76b4923a63ced2452c4fd7787a745 (diff)
Fix a bug in type class enrichment from substructures
Diffstat (limited to 'tests/mproj.ur')
-rw-r--r--tests/mproj.ur21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/mproj.ur b/tests/mproj.ur
new file mode 100644
index 00000000..8e4317c7
--- /dev/null
+++ b/tests/mproj.ur
@@ -0,0 +1,21 @@
+structure M : sig
+ type t
+ val x : t
+
+ structure S : sig
+ type u = t
+
+ val eq : eq u
+ end
+end = struct
+ type t = int
+ val x = 0
+
+ structure S = struct
+ type u = t
+
+ val eq = _
+ end
+end
+
+val y = M.x = M.x