From caf2eebe290285171244d67ef24d1fc56d1f8fd7 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Mon, 5 Oct 2009 16:36:38 -0400
Subject: Better location calculation for record unification error messages;
 infer kind arguments to module-projected variables

---
 demo/more/orm.urs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 demo/more/orm.urs

(limited to 'demo/more/orm.urs')

diff --git a/demo/more/orm.urs b/demo/more/orm.urs
new file mode 100644
index 00000000..8fab3ae8
--- /dev/null
+++ b/demo/more/orm.urs
@@ -0,0 +1,19 @@
+con link :: Type -> Type
+
+con meta = fn col :: Type => {
+	      Link : link col,
+	      Inj : sql_injectable col
+	      }
+
+functor Table(M : sig
+		  con cols :: {Type}
+		  val cols : $(map meta cols)
+		  constraint [Id] ~ cols
+		  val folder : folder cols
+	      end) : sig
+    type id
+    val inj : sql_injectable id
+    val id : meta id
+
+    val create : $M.cols -> transaction id
+end
-- 
cgit v1.2.3