From 607bfb0cccc394190a55c46676c6d6f901d67c11 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 27 Oct 2011 08:36:31 -0400
Subject: Harmonize have/need terminology in error messages; display canceled
 record summaries on errors

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

(limited to 'tests/cancel.ur')

diff --git a/tests/cancel.ur b/tests/cancel.ur
new file mode 100644
index 00000000..9edb15af
--- /dev/null
+++ b/tests/cancel.ur
@@ -0,0 +1,7 @@
+type t = {A : int, B : float, C : string}
+type u = {A : int, C : string, D : bool}
+
+fun f (x : t) = x
+fun g (x : u) = f x
+
+fun h [ts] [ts ~ [A]] (r : $([A = int] ++ ts)) : $([A = int, B = float] ++ ts) = r
-- 
cgit v1.2.3