From 95682837c58809ed98071acb6a1c2730b2ee1862 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 15 Oct 2011 10:19:50 -0400
Subject: Improved unification of record literals in type class resolution

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

(limited to 'tests/tcrec.ur')

diff --git a/tests/tcrec.ur b/tests/tcrec.ur
new file mode 100644
index 00000000..3d3e6e64
--- /dev/null
+++ b/tests/tcrec.ur
@@ -0,0 +1,5 @@
+type r1 = {A : string, B : string}
+type r2 = {B : string, A : string}
+
+val show_r1 : show r1 = mkShow (fn r => r.A ^ "+" ^ r.B)
+val show_r2 : show r2 = _
-- 
cgit v1.2.3