From 3d77d43fda3acfa1d5f1e12c836718d79fdf84db Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 16 May 2009 15:45:12 -0400
Subject: Mutual datatypes through Effectize

---
 tests/mutual.ur | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tests/mutual.ur')

diff --git a/tests/mutual.ur b/tests/mutual.ur
index da8eade4..c3d80c89 100644
--- a/tests/mutual.ur
+++ b/tests/mutual.ur
@@ -1,2 +1,10 @@
 datatype foo = A | B of bar
 and bar = C | D of foo
+
+val q = B (D A)
+
+fun main () = return <xml>
+  {case q of
+       B (D A) => <xml>Good</xml>
+     | _ => <xml>Bad</xml>}
+</xml>
-- 
cgit v1.2.3