From b93aa3fc0a1aebc3be9e9a69f926eae0300ba253 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 16 Jun 2009 14:38:01 -0400
Subject: Fix a bug in type class enrichment from substructures

---
 tests/mproj.ur | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 tests/mproj.ur

(limited to 'tests/mproj.ur')

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
-- 
cgit v1.2.3