From 447b60afccc89ef18d8f92a260dd1fcdf735898e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 31 Aug 2008 08:32:18 -0400
Subject: Laconic -> Ur

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

(limited to 'tests/datatype.ur')

diff --git a/tests/datatype.ur b/tests/datatype.ur
new file mode 100644
index 00000000..1e1a91aa
--- /dev/null
+++ b/tests/datatype.ur
@@ -0,0 +1,13 @@
+datatype t = A | B
+
+val a = A
+val b = B
+
+datatype foo = C of t
+
+val c = C a
+
+datatype list = Nil | Cons of {Head : int, Tail : list}
+
+val nil = Nil
+val l1 = Cons {Head = 0, Tail = nil}
-- 
cgit v1.2.3